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I programmi dei giochi di spionaggio 


I programmi sono scritti in una 
versione standard del BASIC, e ci 
sono le linee di conversione per la 
maggior parte delle principali 
marche di home-computer. Cerca 
sulla sinistra del programma il 
simbolo del tuo computer e poi vai a 
cercare la versione adatta di quella 
linea nella lista delle modifiche. 
Questi sono i simboli per le varie 
marche di home-computer: 


A Commodore 64 e VIC 20 
*l BBC ed Electron 
l]Spectrum 
@ Apple 
MTRS-80 
(versione di BASIC esteso) 


Qualcosa sui giochi 


I giochi sono molto semplici. Il loro 
scopo è quello di darti una mano affinché 
tu ti abitui al tuo computer e al linguaggio 
BASIC, introducendo i listati, 
correggendoli, e guardando come 
funzionano. I programmi non contengono 
né grafica né suono, dato che questi 
variano molto da computer a computer, 
ma se vuoi, puoi provare ad aggiungerli 
tu. 


Puoi fare tanti cambiamenti e 
adattamenti ai giochi quanti ne vuoi: ci 
sono suggerimenti sui modi di farlo vicino 
ad ogni programma, e puoi sperimentare 
anche con idee tue. In questo modo 
potrai usare i giochi contenuti in questo 
libro come una base di partenza per 
creare i tuoi programmi che saranno più 
lunghi e complicati. 


“Robot-Spia” è stato scritto da Adrian 
Hall; progettato da Roger Priddy; 
illustrato da Sue Walliker, Rob McCaig e 
Martin Newton 


Come introdurre i programmi 
e come farli ‘‘girare’’ 


Ricordati che anche programmi corti 
possono essere molto difficili da copiare 
correttamente e possono richiedere molto 
tempo. Controlla ogni linea mentre la 
scrivi, dato che è molto facile commettere 
errori anche se si è molto esperti. Dopo 
aver introdotto tutto il listato, ricontrollalo 
per accertarti di non avere saltato linee, 
spazi o segni di punteggiatura. 

Per iniziare il gioco, dai il RUN. Leggi 
prima la presentazione del gioco, in 
modo da avere un’idea di ciò che devi 
fare prima di iniziare. Se il programma 
non funziona correttamente, è abbastanza 
probabile che ci sia un errore da qualche 
parte, perciò dai il LIST e ricontrollalo 
nuovamente. 

Quando la partita è finita, può darsi che 
il computer ti chieda se vuoi farne 
un’altra, oppure ti comunichi qualcosa 
come BREAK IN 200, nel qual caso dovrai 
dare il RUN per giocare ancora. 


Come cambiare la velocità 


Alcuni giochi dipendono sia dalla tua 
prontezza di riflessi che dalla velocità del 
tuo computer. Può darsi che tu voglia 
regolare la velocità, in questo caso 
troverai le istruzioni accanto al listato del 
programma. 


de 
> 


8 REM OCCHI DA SPIA 
5 REM VERSI 
buxd,] 


20 LET P=@ 

20 FOR Isi1 T09 

49 GOSUB 340:LET KC(I3=N+3 
50 GOSUR 340:LET YCI3=H+3 
60 NEXT I 

70 GOSUE 360 

89 GOSUB 319 

90 GOSUB 240 

190 LET M=N:GOSUB 340 

110 LET XC(M>=X(Md+SGN €N-5,15 
120 GOSUR 360 

130 GOSUB 316 


4149 CLS:PRINT 


159 PRINT "QUALE? IL NUMERO CHE SIT E? MOSSO" 
169 INPUT A 
170 IF ACDM THEN GOTO 250 


04180 CLS :PRINT 


190 PRINT "BEN SPIATO!" 

200 LET P=P+1 

219 PRINT "ORA HAI "iP;" PUNTI" 
220 PRINT:PRINT "PREMI UN TASTO" 
230 GOSUB 310 

240 GOTO 30 


04259 CLS:PRINT "SBAGLIATO!" 


269 PRINT "LA RISPOSTA ESATTA ERA ":;M 

270 PRINT "HAI OTTENUTO NO, ":P;" PUNTI" 

275 PRINT "FINE DELLA PARTITA. ":PRINT:PRINT 
288 PRINT "UN/ALTRA PARTITA? C5/H3" 

298 INPUT A$:IF A$="S" THEN RUN 

300 STOP 


804319 LET I$=INKEY£ 


329 IF I$="" THEN GOTO 310 
3399 RETURN 


08349 LET N=INT €RND c13%*9%+1 


359 RETURN 


04360 CLS 


3708 FOR I=si T09 


OB®0A389 PRINT TARECXKCI), (133; STRECIO 


390 NEXT I 
400 RFTLIRN 


Prova a inventare una 


routine di punteggio 
massimo per questo 
gioco. 


Occhi da Spia 


Se pensi di essere una buona spia, prova questo gioco. Il 
computer visualizzerà i numeri da l a 9 sul tuo schermo. 
Osservali con occhi di falco mentre premi un tasto (uno 
qualsiasi va bene): uno dei numeri si è spostato, ma quale? 
Quando pensi di sapere qual’è, premi un tasto di nuovo e 
dillo al computer. 


Come funziona 


10: Riserva spazio per l’immagazzinamento delle 
posizioni dei numeri. 

20: Azzera il punteggio. 

30-60: Sceglie le posizioni dei numeri. 

70: Va alla subroutine per la visualizzazione dei 
numeri. 

80: Va alla subroutine che attende la pressione di un 
ICRICA 

90-100: Va alla subroutine che sceglie un numero, e lo 
chiama M. 

110: Decide lo spostamento verso sinistra o verso 
destra. 

120: Va alla subroutine per la visualizzazione dei 
numeri. 

130: Va alla subroutine che attende la pressione di un 
tasto. 

140-150: Pulisce lo schermo e visualizza il messaggio. 
160: Ti chiede un numero. 


170: Se il numero che hai introdotto non è esatto, il 
programma va al messaggio della linea 260. 


180-190: Pulisce lo schermo e stampa il messaggio. 


200-210: Aggiorna il punteggio e lo visualizza sullo 
schermo. 


220-230: Stampa il messaggio e va alla subroutine che 
attende la pressione di un tasto. 


240: Torna indietro per il giro successivo. 


250-300: Stampa messaggi se hai sbagliato e ti chiede 
se vuoi riprovare. 


310-330: Subroutine che attende la pressione di un 
tasto. 


340-350: Subroutine per la scelta casuale di un numero 
tra le9. 


360-400: Subroutine che stampa i numeri sullo 
schermo nella posizione prescelta. 


Linee di conversione 


@ 140, 180, 250, 360 Sostituisci CLS con HOME 

A 140, 180, 250, 360 Sostituisci CLS con PRINT 
CHRS$(147) 

+ 310 LET I$=INKEYS$ (0) 

© 310 I$=‘":1F PEEK(—16384)> 127 THEN 
GET I$ 

A 310 GET I$ 


340 Sostituisci RND(1) con RND 
m 340 LETN=RND(9) 
380 PRINT AT Y(1),X(1);STR$(1) 
® 380 VTAB(Y(1)):HTAB(X(I)):-PRINT STR$(1) 
Aa 380 PRINT CHR$(19):FOR LL= 1 TO 
Y(1):PRINT:NEXT:PRINT TAB(X(1));STRS(1) 
m 380 PRINT @ Y(I)»32 + X(1),STR$(1); 


NE7A SIA 


N 


Stanotte stessa toccherà a te intraprendere una missione estremamente segreta 
e pericolosissima. Devi attraversare un’area posta sotto accurata sorveglianza 
in territorio nemico, evitando di essere illuminato dal gigantesco e potente 
riflettore. Ci sono massi, cespugli e altri ostacoli dietro cui nascondersi, ma non 
ti sarà data una seconda possibilità se ti fai scoprire. Una volta completata con 
successo una missione, ce n’è un’altra da intraprendere, che sarà più difficile. 
Persisti, contiamo tutti sul tuo successo. Usa il tasto M per spostarti verso destra 
e N per andare verso sinistra. Per completare la missione, devi attraversare il 


campo da sinistra a destra e poi tornare indietro. 


3 REM FARO NELLA NOTTE 
4 FEM VERSIONE GEHERALE 
19 GOSUE 4540 
20 LET A=1:LET G=@4:LET S=0 
435 CL‘ 
40 L LET Y=12:LET E$=N$cH% 
SO G 


LET N=G:LET HNH=6 GOSUE 340 
L 


fi LET L=MG:LET C=M LET TOS1G:LET Ci=M 
© LET I&=THKEEY£ 
IF 1$="H" THEN LET HH=H-1 
GIF I18="M" THEH LET NH=H+1 
HH19 THEH LET MH=19 
HZ THEN LET NM=4 
“ NH=19 AHD F=M THEN LET F=i 
HH=M AHI F=1 THEN LET F== 
AOGGSUE 240 
ab IF NSSHHN THEM LET S=5+1 
FIA LET N=HH:LET G=G+1 
A GOSUE 400 
GUTF MID “A$A3.H+1.13=" " RAND L=1 
A FOR T=t TO SO MEXTT 
IF Fe? THEN GO0TO0 SA 
ALET A=M+1 IF A=2 THEN LET A=7 
GNTO 30 


VET Y=31:LET B$="SEI STATO * 


SA PRINT 


A PRINT IL TUO PUNTEGGIO: "(INT (€A-1+5/G)#100) 
FRINT:FRINT “UN/ALTEA PARTITA 7 C5/M)" 


INPUT C&:IF C&= THEH FUN 
PRINT "CIRO... STOP 
A LET W=3:LET #=10:LET E$="#" 


Sei capace di fare in 
modo che il faro resti 
acceso più a lungo. 


Prova a sostituire i simboli 
= che raffigurano gli osta- 
coli con simboli grafici che 
rappresentano alberi, 
massi, edifici, o qualsiasi 
altra cosa ti venga in 
mente. 


THEH GOTN 240 


Come funziona 


10: Va alla subroutine per leggere 
i dati. 

20: Prepara le variabili. 

40-50: Visualizza gli ostacoli. 
60-70: N è la posizione del giocato- 
re; NN è la nuova posizione. 

80: Controlla se è stato premuto un 
stato. 

90: Se il tasto premuto è N (sini- 
stra), la nuova posizione sarà N 
meno 1; se è M (destra), sarà N 
più l. 

100-120: Impedisce al giocatore di 
oltrepassare i limiti dell’area. 
130-140: F vale 1 quando si 
raggiunge il lato destro dello 
schermo e 2 ancora il lato sinistro. 


150: Va alla subroutine che muove 
il giocatore. 

160: Se il giocatore ha mosso, S 
viene aumentato. 

170: Pone la posizione del 
giocatore uguale a quella nuova e 
aumenta G di 1. Il valore di G 
cresce col passare del tempo, indi- 
pendentemente dal fatto che il 
giocatore muova o meno. 

180: Va alla subroutine che 
accende e spegne il faro. 


190: Controlla se il giocatore si 
trova sotto uno spazio mentre il 
faro è acceso, e in questo caso va 
al messaggio di sconfitta. 

200: Pausa. 


210: Se il giocatore non è tornato al 
lato sinistro, torna a vedere se è 
stato premuto un altro tasto. 


220: Aumenta il livello di difficoltà. 


230: Torna a visualizzare gli 
ostacoli del nuovo livello. 


240-290: Stampa il messaggio di 
sconfitta e il punteggio; chiede al 
5 giocatore se vuole fare un’altra 
90 RETUFH partita. 


300-310: Visualizza il faro. 
320-330: Spegne il faro. 


340-370: Subroutine che modifica 
la posizione del giocatore. 


380-390: Subroutine per la 
visualizzazione su schermo in 
posizione X, Y. 


400-440: Subroutine che determina 
Aggiungi un suono i tempi del riflettore. 
d’allarme per quando i 
giocatore è scoperto. 450-470: Subroutine di lettura dati. 


480-540: Linee contenenti i dati. 


400 IF L=1 THEN LET C=C+1 

0410 IF C=TC THEN LET L=B:LET C=A:LET TO=INT CRMD C1)#8+(12-A)):GOSUB 320 
420 IF L=8 THEN LET C1=C1+1 

0430 IF C1I=TC THEN LET L=1:LET CI=S'LET TO=INT CRND C1)#19+C8-A}) :GOSUB 
440 RETURN 

0450 DIM A$C7) 

460 FOR I=1 TO 7:READ ASCIV:MEXT I 
470 RETURN 
420 DATA 
490 DATA 
SGA DATA 
S1A DATA 
520 DATA 
SSA DATA 
540 DATA 


Potresti rendere più facile i 
gioco, dando una seconda 
possibilità al giocatore. 
Come si potrebbe fare? 


Un 


E TETATAT 


Linee di conversione 


30 HOME 
30 PRINT CHR$(147) 
80 LET I$ = INKEYS$(0) 
80 GET 1$ 
80 1$= ‘IF PEEK (—16384)> 127 THEN GET I$ 
190 IF A$S(A,N+1)=‘ " AND L=1 THEN GOTO 240 
380 PRINT AT Y,X;B$ 
380 VTAB(Y):HTAB(X+ 1):PRINT B$ 
380 PRINT CHR$(19):FOR LL = 1 TO Y:PRINT:NEXT: 
Puoi spostare gli PRINT TAB(X);B$ 
ostacoli modifi- 380 PRINT @ Y*32 + X,B$; 
cando le linee di 410, 430 Sostituisci RND(1) con RND 
DATA. 410, 430 Sostituisci RND(1) con RND(0) 
450 DIM A$(7, 20) 
La velocità è controllata dalla linea 200 
Sul BBC e sull’Electron, modificala in FORT=1 TO 
150: NEXT T 


Sei tu ad avere il controllo di Robot Spia: un apparecchio di 
pedinamento unico al mondo, controllato a distanza, che 
segue di nascosto gli agenti nemici. Ti vengono comunicati i 
dati relativi agli spostamenti di un agente per le strade, sia 
che egli giri a destra o a sinistra, e tu devi replicare 
esattamente questi movimenti quando mandi i segnali al 
robot-spia, per poterlo mantenere in contatto con l’agente. 

Sfortunatamente l’agente sa che Robot Spia lo sta seguendo, 
e ti rende il compito sempre più difficile man mano che il 
gioco va avanti. Sei capace di stargli alle costole, oppure ti 
farà perdere le sue tracce? 


Fai in modo che il Come funziona 


palese il dome) 30-40: Prepara le variabili. L è il 
es grocatore quando: e numero di parole sullo schermo; K 
superato il punteggio H . 
tiene conto di quante volte apparse 


ini 


Dod 


massimo? 


54 PRINT "PREMI 
A LET CE=INKET 


IF C$0>"I" 


A CLS:PFINT:PRINT 


IF K=5 THEN LET L=L+1 
LET Mg="" 
LET C$="" 


A FOR T=1 TOL 


LET N=FND 1% 

IF_N3=0M,5 THEN PRINT "SIH ci5] 
IF _HZ0,5 THEH PETIT "DESTRA" | 
NEXTOT 
2A LET K=K+1 

A FOR D=i TO 20GEL&5P 


AA LET C$=INEEY8 


A UNEXT DI 
CLS :PRINT:PRINT 
fi LET E=W 
FRINT "QUALI ERANO LE NIRESTOHI" 
AFOR T=1 TOI 
A PRINT "7"; 
MN LET C&=INKEY# 
IF C&0>"S" AMD C&£0>"0" THEH GOTO 
PRINT C$ 
IF C$C>MID$ ©‘M$.T,13 THEN LET E= 


210 MEXTT 


IF 


IF E=1 THEN FFIMT " 
PRINT "PUNTEGGIO = 

3604 PRINT "PUNTEGGIO MASSTHMO 
6 IF E=t THEN GOTO 40 

FOR D=i TO S0RKSP 

NEXT D 

GOTO Sa 


Linee di conversione 


20, 90, 220 Sostituisci CLS con HOME 
20, 90, 220 Sostituisci CLS con PRINT CHR$ (147) 
70, 200, 270 LET C$ = INKEY$(0) 
, 200, 270 C$ = ‘’:IF PEEK (—16384)> 127 THEN 
GET C$ 
, 200, 270 GET C$ 
LETN=RND 
LET N = RND(0) 
IF C$ < >M$(T) THEN LET E=1 


sullo schermo L parole. 

60-80: Visualizza il messaggio e 
attende la pressione di un tasto per 
iniziare il gioco. 

90: Pulisce lo schermo e lascia 2 
linee vuote. 

100: Se K è 5, il valore di L viene 
aumentato di 1 e K viene azzerato. 
110-120: Prepara due variabili-strin- 
ga vuote. 

130-170: Per L volte ripete la 
sequenza per la scelta casuale di 
direzione (destra o sinistra), la 
visualizza e l’immagazzina in MÎ$. 
180: Aumenta K di 1. 


190-210: Pausa per far vedere le 
parole al giocatore. Più sono le 
parole e più lunga sarà la pausa. 
230: Variabile ‘‘flag’’ di errore: 
viene attivata (= 1) se il giocatore 
sbaglia. 

250: Inizio del loop di attesa e 
controllo della risposta. 

260-270: Ti indica che è pronto, 
aspetta che venga premuto un tasto 
e lo mette in C$. 


280: Se il tasto premuto non è né D 
né S, torna indietro ad aspettarne un 
altro. 

300: Controlla se la lettera in C$ è 
uguale a quella corrispondente di 
M$ e attiva la variabile ‘‘flag’’ di 
errore se non lo è. 

320: Aumenta il punteggio se non vi 
sono errori. 


330: Aggiorna il valore del 
punteggio massimo, se necessario. 


340: Visualizza il messaggio 
d’errore, se ce n’è stato uno. 


350-360: Stampa i punteggi. 


370: Torna indietro per un’altra 
partita. 


380-390: Fa una pausa per mostrare 
il punteggio. 

400: Torna indietro per il giro 
successivo. 


La linea 10 controlla la velocità del 
gioco. Modifica questo numero 
come segue: Spectrum 0.2, VIC 20 
0.4, Electron 0.6, BBC 1, Apple 0.1. 
Qualunque computer tu stia 
usando, minore è il numero 
e più veloce sarà il gioco. 
Prova ad aumentare la 
velocità e vedi come ti 
riesce il gioco. 


Prova di abilità 


Come nuova recluta alla Scuola di Spie, devi superare molte prove di abilità 
per far carriera. Inizi dal livello più basso, quello di Aspirante Spia (grado 5°). 
Il tuo scopo è quello di raggiungere il massimo e diventare Capospia e forse 
anche di ottenere il massimo dei riconoscimenti: il trofeo di Superspia. In ogni 
prova, ti verranno visualizzate sullo schermo dieci posizioni; poi ti verranno 
dati dieci numeri tra 1’1 e il 100. Il tuo compito è quello di porre questi dieci 
numeri in ordine crescente, col numero più basso alla posizione 1 e il pi alto 
alla 10. Puoi scartare alcuni numeri, se non si possono inserire, premendo S. Il 
numero di volte che puoi usare S è pari al numero del tuo livello. 


2 REM PROVA DI ABILITA” PER SPIE 
5 REM VERSIONE GENERALE 

O DIM Nel): DIM N£c5) 

5 CLS 


A LET G=@ 
FOR I=1 TO 1@:LET NeII=A:NEXT I 
SO LET I=1 
90 GOSUB 430 
MOIGG LET M=INT CRND €13%99+1) 
© PRINT:PRINT "DOVE METTERESTI ":M 
2A PRINT:INPUT P$ 


120 


160 IF PC1 DF PIIA 


THEN GOTO 


Sei capace di mettere 
15 posizioni invece di 
10? 


Cambia i gradi 
se vuoi. 


Come funziona 


10: Riserva spazio in memoria per 
gli array. 


20: Pulisce lo schermo. 


30: Va alla subroutine che legge i 
dati e li pone nell’array N$() tramite 
READ. 


40: W$ è una stringa vuota. 


50: Pone il numero di grado uguale 
a 5 per iniziare. 


60: G corrisponde al numero di volte 
che hai scartato un numero. 


70: Mette zero in ognuna delle dieci 
posizioni per la partenza. 


80: Conta i numeri già messi in 
posizione dal giocatore. 


90: Va alla subroutine che visualizza 
il tuo grado, i numeri da l a 10 ei 
numeri già posizionati. 


100: Sceglie un numero tra 1 e 100. 


110-120: Stampa il numero e ti 
chiede dove lo vuoi mettere. 


130-140: Controlla se hai premuto S e 
poi controlla se puoi scartare 
ancora. 


150: Calcola il valore numerico del 
tuo input. 


160: Lo rifiuta se non è compreso tra 
lel0. 


Hai la stoffa 
della 
Superspia? 


A PRINT :PRINT 


fi PRINT:FRINT 


A PRINT:PRINT 
A PRINT 

A_FOP 
A FRINT JT: 

AGIF Né T3>A THEH PRPIHNT MoTù: 


IF NCP350 THEN PRINT "E? GIA” PIENO" 


LET NCP3=M 


A LET F=@ 
A FOR L=P 


TO 169 
IFOHCL3<M AND HeLo A THEN LET F=1 
NEXT I 

FOR L=1 TOF 
IFONCLI3M AND 
MEET L 

IF F=1 THEN GOTO 260 

LET I=I+1:IF IT11 THEN GOTN 9G 
LET D=I-1:IF D=9 THEN GOTN 33% 
PRINT "PROMOSSO AL GRANO «D 
ORA SET NINA "(Mt 


N“L3<>A THEN LET F=1 


LET M$="" 


AOGNTO 400 
1 PRINT 


"ERAVISSIMO — 
PRINT "IL GRADO NI 
STOP 
PRINT 


HRI FAGGILINTO" 
SUPERSPIA" 
"SEAGLIATO! NON SEI ABBASTANZA 
"SEI ANCORA UNA ": 

PRINT N$CD> 
LET W$="ANCOPA" 
PRINT:FFIMNT "VUOI PROVARE ANCORA? CS/Hb" 

IMPLIT A$:IF A$="S" THEN GOTO 60 


A STOP 


CLS 


SSETO ":14£;" UNA "(Né 


I=1 TO im 


9A PRINT:HEXT I 


A FOR I=i 


RETURN 
TO S:READ N$C1I% 
HEXT I 


A RETURN 
G DATA "CAPOSPIA". 
W DATA 


USPIA". "VICESPIA" 
"AIUTO-SPIA". "ASPIRANTE SPIA" 


GOTO 120 


EPRVO" 


170: Lo rifiuta se la posizione è già 
occupata. 

180: Mette il numero nella posizione 
che hai scelto. 

190-220: Controlla tutte le posizioni più 
alte di quella che hai scelto per vede- 
re se c’è già un numero minore in una 
di esse; in questo caso, attiva F. 
230-250: Controlla tutte le posizioni in- 
feriori a quella che hai scelto per ve- 
dere che non ci sia già un numero più 
alto in una di esse; se c’è, attiva F. 
260: Se la posizione è sbagliata, va 
avanti nel programma per dirtelo. 


270: Aumenta il valore del contatore 
e torna indietro per un altro numero. 


280-300: Modifica S per il grado 
successivo e stampa il messaggio. 
(Se S vale 0, va alla Superspia). 


310: W$ è una stringa vuota. 
320: Va al messaggio ‘‘riprova’’. 
330-350: Messaggio Superspia. 


360-380: Stampa il messaggio di 
sconfitta. 


390: Pone W$ uguale ad 
“ANCORA”. 


400-420: Aspetta di vedere se vuoi 
giocare ancora; se non vuoi, ferma 
il gioco. 

430-500: Subroutine che visualizza il 
messaggio e i numeri. 


520-530: Subroutine per la lettura dei 
nomi dei gradi che verranno messi 
in N$. 


540-550: Dati. 


Linee di conversione 


10 DIM N(10):DIM N$(5,16) 
@ 20,430 Sostituisci CLS con HOME 
A_20,430 Sostituisci CLS con PRINT 
CHR$(147) 
100 LET M= INT (RND*99+ 1) 
#100 LET M=RND(99) 


Cifra Messaggi Segreti 


Usa questo programma per mandare dei messaggi cifrati ai tuoi amici. Essi 
avranno bisogno di un computer per decifrarli, ma non necessariamente 
dello stesso tipo di quello che hai tu. (Avranno però bisogno di una copia 
del programma). Essi potranno decifrare i tuoi messaggi e mandarti i loro. 


Potresti organizzare una Rete 
di Spie con i tuoi amici che 
hanno un computer. 


3 REM MESSAGGI CIFRATI 
5 REM VERSIONE GENERALE 
6410 CLS:PRINT:PRINT "CIFRA-MESSAGGI SEGRETI" 
20 PRINT ressscsessoocaes=" 
30 PRINT:PRINT "COSA VUOI FARE: " 
40 PRINT 
PRINT " 1. CIFRARE UN MESSAGGIO" 
PRINT "OPPURE 2. DECIFRARE LUIN MESSAGGIO" 
PRINT:PRINT 
PRINT "INSERISCI UN NUMERO ": INPUT A 
IF_R=1 THEN GOSUB 120 
IF_A=2 THEN GOSUB 219 
a GOTO 30 
A LET C$="CIFRATO":GOSUE 420 
LET X=INT CRND (1)#25+1) 
LET M$="F"+M$ 
SA GOSLB 319:GOSUB 420 
A LET M$=CHR$ (X+64)+M£ 
IF LEN <M&:/2=INT CLEN ‘M$)/2) THEN GOSUR 450 
PRINT "IL MESSAGGIO CIFRATO E°:" 
PRINT M$ 
RETURN 
LET C$="DECIFRATO" :GOSIB 400 
A IF LEN (M$)/2=INT CLEN (M$)72) THEN GOSUB 450 
LET K$=LEFT® (M$,17 
LET M$=RIGHT$ <M$.LEN €M$)-1) 


ng DU 


Come funziona 


10-80: Visualizza il ‘‘menu’’ e ti 
chiede se vuoi cifrare o decifrare. 


90-100: Va alle relative subroutine. 
110: Torna al menu. 


120-200: SUBROUTINE DI CODIFICA. 


120: Va alla subroutine per la richesta 
di messaggio. 


130: Sceglie l'ammontare dello 
spostamento della lettera all’interno 
del codice e lo immagazzina in X. 


140: Aggiunge una lettera nel caso in 
cui la prima parola sia formata da un 
solo carattere. 


150: Va alle subroutine che spostano 
le singole lettere del messaggio di X 
lettere più in là nell’alfabeto e ne 
rovescia l’ordine. 


160: Aggiunge una lettera al 
messaggio per dire alla subroutine di 
decodifica qual’è il valore di X. 


170: Controlla se il messaggio ha un nu- 
mero di caratteri pari. In questo caso 
va alla subroutine per scambiare fra lo- 
ro le lettere di ogni coppia di caratteri. 


210-300: SUBROUTINE DI DECODIFICA 


210: Va alla subroutine per chiedere il 
messaggio da decifrare. 


220: Se il messaggio contiene un 
numero di caratteri pari, scambia fra 
loro le lettere di ogni coppia. 


230-240: Toglie la prima lettera. (E quel- 
la aggiunta alla linea 160 per mostrare 
l'ammontare dello spostamento). 


250: Calcola il valore di X. 


260: Cambia la direzione dello 
spostamento e va alla subroutine che 
rovescia l’ordine delle lettere 
componenti il messaggio. 


WXRFDDXI MFEZ 


NBRJO SFGG CHO LFEZZBS IBRNC 
GHWC IBZQIOTE 


KBPQC VTC NRVCC 


NOB GDP TWXUR 


WPC CGHE UNDMJW V ZMZYZ 
ZQZY DN IJIA 


A GOSUB 310:M&=RIGHT$ <“M&.LEN €M£>-1) 
PRINT "IL MESSAGGIO DECIFRATO E?:" 
PRINT M$ 
PETUPH 
A LET Ng="" 

FOR I=1 TO LEN <M$> 

LET O$=MII$ <M£.I.1):LET N=ASC 
î THEH GOTO 320 


(08) 


THEN LET N=NH-26 
TF_NZ65 THEN LET N=Hi+26 
LET N$=N$+CHP$ Hi :MNEXT I 
i LET M£=HN$ RETURN 
PRINT "QUALE? IL MESSAGGIO CHE DEVE ESSERE ";C$ 
INPUT M& :FETLIRN 
H$="" FOR I=LEN €M$) TO 1 STEP 1 
N&=N$+MID® €M$.I.1>:NEXT I 
M$=H£ : RETURN 
N$="":LET L=LEN <M$i 
OF I=1 TO LEN €M$>-1 STEP 2 
H$=HN$+MID$ €M$.I+1,13 
L H$=N$+MID$ €M$.I.1) 
MEXT I:LET M£=H$ :RETUFEN 


Una buona spia controlla 
sempre che i suoi messaggi 
siano correttamente 
decifrabili, prima di spedirli 


Linee di conversione 


@ 10 Sostituisci CLS con HOME 

A_10 Sostituisci CLS con PRINT CHR$(147) 
130 LET X= INT(RND*25)+ 1 

130 LET X = RND(25) 

230 LET K$=M$(1) 

240 LET M$-= M$(2 TO) 


DUIJV YZV ODGZ 
ZMIYMZ K VIDDZAQ 


250 
270 
330 
430 
470 
480 


270: Va alla subroutine che sposta le 
lettere nell’alfabeto. Toglie la prima 
lettera. 

310-390: SUBROUTINE DI 
SPOSTAMENTO. 


310: Pone il messaggio in N$. 


320: Inizio di un loop che toglie le 
lettere da N$ una ad una. 

330: Trasforma le lettere nel numero 
di codice del computer. 


340: Se si tratta di uno spazio, lo 
lascia invariato. 


350: Aggiunge il valore di X al codice 
della lettera. 


360-370: Modifica il codice della 
lettera se esso è superiore al valore di 
Z o inferiore al valore di A. 


380: Aggiunge una nuova lettera a N$ 
e ritorno all’inizio del loop. 

390: Quando tutte le lettere sono state 
riportate al loro valore originario, il 
nuovo messaggio viene posto in M$. 


400-410: Subroutine di richiesta 
messaggio. 


420-440: Subroutine che rovescia 
l’ordine delle lettere. 


450-490: Subroutine che prende le 
lettere dal messaggio a due a due e 
scambia di posto fra loro le lettere di 


ogni coppia. 


LET X= CODE(K$)—64 

GOSUB 310:LET M$ = M$(2 TO) 
LET Q$ = M$(I):LET N = CODE(Q$ 
LET N$ = N$ + M$(1):NEXT | 

LET N$= N$ + MS$(1 + 1) 

LET N$= N$ + M$(1) 


CXRRLMRY QAGKMG 
YRPMLLADG 


Sei capace di 
decifrare che cosa 
dicono? 


KBTUFGGPUVK FTKNV 
CNKCIK KEHF 


Appuntamento di Spie Misano 


Hai una difficile missione da svolgere, 
per cui leggi attentamente queste 
istruzioni. Devi ritirare una valigia da 
una cassetta alla stazione, consegnarla 
al tuo contatto e poi ritornare Devi tornare qui 
all'aeroporto prima che parta l’ultimo DOMARE Lula 
aereo. Il tuo computer di dirà l’ora, | - 
dove si troverà il tuo contatto e a che Î} 
ora sarà li. Devi lasciare un messaggio 
in quel posto, prima che egli arrivi, 
dicendogli dove e quando vi 
incontrerete per la consegna del pacco. 
Devi scoprire la parola d’ordine prima 
di incontrarlo e accertarti di non aver 
un ritardo superiore ai 15 minuti. Prima 
di poter ritirare la valigia, devi trovare 
la chiave e anche il numero della S i 13 
cassetta. Sfortunatamente, la chiave è 
nelle mani di agenti nemici, che hanno 
il quartier generale all’Albergo. Devi 
trovare una spia nemica e seguirla, 
sperando che lasci cadere la chiave (e 

ANAL LIA 


CA 
cl) no) 


che non ti veda). La mappa illustra i 
posti dove puoi andare, e la lista sotto 
riporta le parole che potrai usare nel 
gioco. 


PIAZZA 


AL GRANDE 


La valigia è nella 
cassetta. 


Ora mangia le istruzioni 


Ti converrà scriverti la parola 
d’ordine e il numero della cassetta 
(ovviamente in codice). 


Parole che puoi usare 
5 SEGUIRE - La spia nemica. 


SE PI CICETIA:OR ASPETTARE - Finché vuoi. 


ANDARE - Ti chiederà dove. Puoi andare > 
in qualsiasi posto segnato nella mappa. LASCIARE - Un messaggio. 


DIRE - La parola d’ordine. 


ESAMINARE - Qualsiasi cosa. (Esamina 
la chiave per vederne il numero). 


LEGGERE - Un messaggio. Inoltre puoi usare i nomi scritti in 
APRIRE - La cassetta. stampatello sulla mappa. 


7 


—® _- Puoi cambiare anche i nomi dei 
o 
. 


x- posti, se vuoi. 


CERCARE - Ovunque (per trovare la 
chiave). 


AIUTO - Ti ricorda l’ora e il posto 
dell’appuntamento. 


Se vuoi, cambia le parole d’ordine. 


4 
REG 

CHIESA Li 1) 
pe Es 


dI 
Quartier generale 
del nemico. 


Se usi il VIC 20 ti Come funziona 

occorre per que- 

sto Lari 10: Prepara una funzione per la scelta 
di casuale di un numero tra l e X. 


20: Va alla fine del programma per 
MENTO DI SPIE leggere i dati e preparare il gioco 


5EMERALE vt) det a 
=IHT CRNI €13%2+1 (inizializzazione). 


i: GOSUB I po QI 30: P, Y e X registrano la posizione 
"0 bi del giocatore. EP è la posizione del 
nemico. 


60: B$ è per i messaggi del computer, 


O DI SPIE" - 7 “ 
rivolti al giocatore. 


90: Aumenta NM (numero di mosse). 


140: NE tiene conto di quanto tempo il 
giocatore resta nello stesso posto dove 
“ QUI":LET NE=NE+1 si trova l’agente nemico. 


GGIO PER TE" 180: Calcola l’ora (H=ore, 
M=minuti). 15 


190-200 Controlla se la missione è 
stata portata a termine. 


210-270: Prende la parola introdotta 
dall’utente e la confronta con le 
parole in memoria. V è il numero 
della parola corrispondente. 


199 IF F(4)=1 AND R$CP)=S$ AND U<=T1 AND U+.15>T1 THEN PRINT T&:LET F(3)=1 
200 IF P=1 AND HCFH AND FC7)=1 THEN GOTO 8909 
219 PRINT:PRINT:PRINT "COSA VUOI FARE" 


220 LET Bs="" 
p239 INPUT 1$ i 280-290: Controlla il valore di NE per 

240 LET V=0:FOR I=1 TO 11 vedere se il giocatore è stato visto dal 

250 IF 18=v$1) THEN LET V=I È 

260 NEXT I nemico. 


279 IF Y=9 THEN LET Y=12 
300: Va alla subroutine relativa alla 
parola introdotta. 


310: Aggiorna l’ora. 
330: Controlla se il tempo è scaduto. 


340: Fa ritornare il nemico 
all’albergo. 


360-410: SUBROUTINE “ANDARE” 


259 1F NE=3 AND FN AC19)>3 AND YC>1 THEN LET B$="L"AGENTE NEMICO TI HA VISTO!":G 
OTO 70 
299 IF NE=4 THEN PRINT "SEI STATO CATTURATO! ":STOP 
0299 ON VGOSUB 360,420,490,540,570.649.719,730,780,819,820.870 
319 LET M=M+DT:IF M>59 THEN LET M=M-69:LET H=H+1 
320 IF F(2)=1 AND H>=CH THEN LET FC(43=1 
339 IF H=FH THEN GOUTO 890 
m240 IF FN AG19)>9 THEN LET EP=16 
350 GOTO 70 
260 PRINT:PRINT "DOVE": INPUT H$ 420-490 SUBROUTINE “DIRE” 
379 LET NP=6:FOR I=1 TU 20 
380 IF N$=R$CI) THEN LET NP=I 


390 NEXT I:IF NP=9 THEN GOTO 360 500-540: SUBROUTINE 

400 GOSUB 959 “ESAMINARE” 

419 LET P=HP:RETURN 

prep A RC 550-570: SUBROUTINE “LEGGERE” 
439 PRINT:PRINT "COSA DEVO DIRE": INPUT 0$ ° 


THEN LET B$="HAI ATTIRATO L'AGENTE NEMICO!" :RETURN 

= THEN LET B$="NESSUNO TI SENTE" :RETURN 

P$ THEN LET B$="IL CONTATTO TI HA IGNORATO!":FETURN 

=1 THEN LET B$="IL CONTATTO E” STATO EFFETTUATO - HA PRESO LA BORSA!" 
1:RETURN 


i) 
509 PRINT:PRINT "COSA VUOI ESAMINARE": INPUT 0$ 
519 IF 0$="EORSA" THEN LET B$="TOP SECRET!" :RETURN 
CHIAVE" THEN LET B$="PORTA IL NUMERO "+STR$ CHL) :RETURHN 
536 "NIENTE DI SPECIALE!" :RETURN 
549 IF PC3MP OR Fc13=1 THEN LET B£="NON C'E” NIENTE DA LEGGERE!" :RETURN 


559 LET B#="C"E” LA PAROLA “"+P$+""" 
569 LET FC13=1:RETURN 580-640: SUBROUTINE ‘‘APRIRE” 

O LET DT=5 
IF P{>16 THEN LET B&="NIENTE DA APRIRE" :RETURN 650-700: SUBROUTINE ‘‘SEGUIRE”’ 


IF F53=9 THEN LET B$="NON HAI LA CHIAYE":RETURN 

PRINT:PRINT "BUALE” IL NUMERO DELLA CASSETTA": INPUT N 

IF NLC>YN THEN LET B$="LA CHIAVE NON YA BENE" :RETURN 

9 LET B$="LA CASSETTA E” APERTA- ORA LA BORSA E” TUA!":LET FC6)=1 


RETURN 
LET DT=5 PI 
IF EP<>P THEN LET E&="CHI DOVREI SEGUIRE?" :RETURN pito 
LET NP=FN AC203:GOSUB 959 :LET P=NP 
IF FN AC18)>8 THEN LET P=KP 
IF FN AC18)>7 THEN LET B#8="L"HRI PERDUTO DOPO UN PO7!":RETURN 
9 LET EP=P 
9 LET B$="L"HAI TENUTO SOTT‘ OCCHIO" :RETURN 730-770: SUBROUTINE “LASCIARE” 
PRINT:PRINT "QUANTI MINUTI": INPUT DT 
Bedi 780-800: SUBROUTINE ‘‘CERCARE” 


PRINT:PRINT "DOVE VOGLIAMO INCONTRARCI":INPUT S$ 
PRINT:PRINT "A CHE ORA CORE.MINUTI)" 

INPUT U 

IF P=CF AND T1<U AND HECH THEN LET FC2)=1 810: SUBROUTINE “ORE” 
LET DT=5:RETURN 

LET B$="QUI NON CE” NULLA":LET DT=1@ 

IF P=KP THEN:LET B$="HAI TROVATO UNA CHIAVE":LET FC5)=1 

RETURN 

LET DT=B:LET B$="SONO LE ORE "+STR$ (H)+","+STR$ (M):RETURN 


LET DT=5 820-860: SUBROUTINE “AIUTO” 


1 IF U=9 THEN GOTO 864 


PRINT:PRINT "IL LUOGO D'INCONTRO E°" 870: Subroutine ‘‘parola non 
i ; riconosciuta”’. 
"RETURN 880: Messaggio ‘‘tempo scaduto”. 
STOP 
. LA TUA MISSIONE E” STATA UN SUCCESSO!" 
= ul) < . . CI . CI 
2WI/HIMETL/ 120150) TT 890-940: Visualizza il messaggio e il 
LEI MIL TUO VOTO COME SPIA" punteggio di una missione conclusa 
SRINT "E? "55 in di 
St î SE È con successo. Il punteggio dipende 
olo DEE e/? dal numero di mosse effettuate e dal 
. fe. tempo rimasto. 
CHSMANGLET DYSABS C1-HY1 
LET 4=HY 


È RO CIMIZ+ IN TZ) 
1906 LET DTI=INT «540 :FETURH 
DIGIO DIM REceoi,. VECI», Foo 

1020 FUR I=S1 TO 2SO:RERI RECLI 

1020 NES 


950-1000: Subroutine che calcola la 
distanza percorsa e il tempo 
impiegato dallo spostamento del 


ASI) 


a DS 
tel 
giocatore. 
Il simbolo ° significa 
‘‘elevato a potenza”. Sui ì 
computer VIC 20, C64 e 1010-1050: Subroutine per la iettura 
i 


Spectrum ha questo dei dati. 


aspetto: | 
1060-1145: Linee contenenti i dati. 


194968 FOR I=si TO 11:FEHD V&c IS :MEXT I [] 
1656 FETUKM £ 
GU DATA " “, "FERMATA DELL'AUIUBUS", "PONTE". "CANALE", "CHIESA". 


E". "EANCA". "(IMEMA", "ALBERGO" 


DATA "EARCO"," 
","PIMZZH PRINCIPALE". "UFFICIO POSTALE", "STAZIONE DI POLIZIA" 


A DATA | 
DATA "E 
IATA "STAZIONE", "MUNICIPIO", "AMBASCIATA". "GIARDINI". "CASTELLO" 

MIARE". "DIRE". "ESAMINARE", "LEGGERE", "APRIRE", "SEGUIRE" A RICE 
‘ASPETTARE ASCIARE", "CERCARE" 1150: Sceglie l’ora d’inizio. 
:" "AIUTO l . 
UDINO". "HEINGA HFFUMICATA", "K0DALA". "FOCACCIA" 1160: Decide l'ora di partenza 
PREOLE CROCIATE". "CANGURO" dell’ultimo volo. 

ET H=FH HC2s48 " 


1170: Decide l’ora in cui il contatto 


Le linee 1010-1340 raccoglierà il messaggio. 
GUI" costituiscono la sezione 
di ‘‘inizializzazione’’ 1200-1210: Sceglie le posizioni del 
sf e del programma. messaggio, della chiave, del nemico e 
READ PR:MEST IO il posto dove il contatto troverà il 
LET NL=FH Ac9001+99 messaggio. 


UNTAMEHTE DI 


PRINT "AF 


IE" 


= x 25 1220-1230: Sceglie la parola d’ordine. 


ITO LO RITIRERA? PRESSO" 1240: Sceglie il numero della cassetta. 
G:PRINT R&(CPI 


AR=CF:GUSUB 126 
O PRINT "ALLE ORE "iCHi". Gi" 1250-1340: Visualizza la presentazione 
PRINT "L'ULTIMO VOLO PARTE" del gioco. 


PRINT "HLLE ORE "(FHi". 00" 
PRINT:PRINT "FEEMI FETUEN PER CONTINUARE" 
RETURN 
TIME DI CONCORDANZA DI GENERE E NUMERO 
4 OF AR=12 OR AR=18 THEN PRINT "L”"; 


P_ 


c = OR AR=4 DR AR=6 OR AR=17 THEN PRINT "IL"; 
î - ( OF AR=11 OR AR THEN PRINT "IL "; 
39E F CR AR=S OR AR=8 OR AR=12 OR CAR>13 AND ARC17) & I) 
THEN PRINT "LA"; VI 
1460 IF RF=19 THEN PRIMT "I "; È 
1415 RETURN 
4 
Linee di conversione Prova a studiare attentamente 
è * ogni subroutine per vedere 
] 10 DEF FNA(X)= INT(RND*X)+1 hr funzione pente le varie 
MB 10 Tralascia questa linea linee di progra! a 


@® 70,1180 Sostituisci CLS con HOME 


A_70,1180 Sostituisci CLS con PRINT CHR$(147) fe variabili F(numero) sonò 


0235 IF LEN(I$)<9 THEN LET I1$=1$ + ‘‘ ''GOTO 235 variabili ‘‘flag’’. F(5), per 
1300 GOSUB 360*(V = 1) + 420*(V = 2)+490*(V=3)+540*(V=4) esempio, vale 1 se possiedi la 
570*(V=5)+640*(V=6)+710*(V=7)+730*(V=8)+780* Cocava e Tae ponoce l'Rat 
n È È erca le altre variabili 
(V=9)+810*(V=10)+820*(V=11)+870*(V= 12) “fiug'' è prova a capire a dba 


0365 IF LEN(N$)< 19 THEN LET N$ = N$ + ‘’’:GOTO. 365 cosa servono. 
0735 IF LEN(S$)< 19 THEN LET S$ = S$ + ‘‘’’:GOTO 735 
01010 DIM R$(20,19):DIM V$(11,9):DIM F(7) 
EB 280,340,660,670,680,1150,1160,1170,1200,1210,1220,1240 Sost. 
FNA( ) con RND() 
p.es.: FNA(20) diventerà RND(20) 


-d 
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Codice Morse 


Se vuoi essere una spia veramente in 
gamba, devi essere in grado di manda- 
re, ricevere, e ovviamente intercettare 
messaggi in codice Morse. Questo pro- 
gramma ti aiuterà a impararlo. Se non 
hai mai usato il codice Morse prima 
d’ora, dovrai farti una tabella delle let- 
tere e dei corrispondenti segnali Morse. 
Usa le linee di programma dalla 400 alla 
450 per fare la tabella: esse riportano i 
codici Morse di ogni lettera in ordine 
‘alfabetico. 


3 REM CODICE MORSE 

-5 REM VERSIONE GENERALE 

10 GOSUB 370 

CLS 

9 LET S=30 

PRINT :PRINT "CODICE MORSE" 
SA PRINT:PRINT "VELOCITA? * 
PRINT:!PRINT "€ ELOCE3" 
PRINT "C5=LENTO 
20 INPUT P:LET P=P@s 


AS CLS 
100 :PRINT:FRINT "PREPARATI" 
110 FOR T=1 TO 20#5:HEST T 


120 GOSUB 318 
01239 LET F#=M$(ASC (0581-64) 
. 149 GOSUE 220 
©4159 CLS :FRINT 
160 PRINT "SCRIVI LA TUA RISPOSTA" 
170 IMPUT *£ = 
180 IF #=9$ THEN PRINT "ESATTO" 
190 IF X$C>N£ THEH PRINT "HO, LA RISPOSTA ERA 
200 FOR T=1 TO 30#5:HEST T 


GOTO 96 

FOR J=1 TO LEN <F£i 
A LET W&=MIN£ (F£.1,1% 
+." THEH LET 
—" THEN LET 
:LET K=1 


L=3 
K=3 


AG E 
f HERT I 
© RETURN 

i PRINT 

LET 08=CHR$ INT cPHD ciiszo+e5to 
FETURH 

PRINT TABCIO, 160; "4" 

A FOR T=1 TO P&E:MEXTOT 

A PRINT TAECIO. ©; " " 
FETURH 

DIM M$C260 

FOR I=1 TO SE :FEAD MEcto 
PRETUEH 
DATA ". 
GUDATA "..-. 
A DATA "-.-".".-. un | 
A DATA ".--. 
A 


DS76 


ana 


alli i ila _ ' 
"ot 
DATA "..,-".".,,—"," ML, 

DATA "-—,--","-- " 


Linee di conversione 


@ 20,90,150 Sostituisci CLS con HOME 
A_ 20,90,150 Sostituisci CLS con PRINT CHRS$(147) 


La velocità è con- 
trollata dalla linea 
30. Sui computer 
BBC ed Electron, 
cambia in 100 il va- 
lore di S. (Più pic- 
colo è il numero, 
più veloce sarà il 
programma). 


Potresti provare ad 
aggiungere una 
routine per il pun- 
teggio. (Il program- 
ma Robot-Spia po- 
trebbe darti un’idea 
su come fare). 


Prova aggiugnere 
anche dei suoni, 
con la visualizza- 
zione dell’asterisco, 
in sua vece. Ricor- 
da: che un punto è 
un suono breve e 
una linea è tre volte 
più lungo. 


Che cosa devi fare 


Nel codice Morse ogni lettera è rappre- 
sentata da una serie di suoni o segnali 
luminosi lunghi o brevi. Questo program- 
ma fa uso di un asterisco lampeggiante. Ti 
darà il codice di una lettera e poi ti 
chiederà qual’era la lettera. Dovrai osser- 
vare con molta attenzione per distinguere 
i segnali lunghi e brevi e ricordarteli. 
Vedrai lampeggiare anche il cursore sulla 
sinistra dello schermo: ignoralo, non ha 
niente a che fare col codice. 


Come funziona 

10: Va alla subroutine di lettura dei 
dati. 

30: Decide la velocità. 


50-80: Ti chiede a che livello vuoi 
giocare e decide in base alla tua 
‘ risposta la velocità dei segnali. 


110: Pausa. 


120: Va alla subroutine per la scelta 
casuale di una lettera; la 
immagazzina in Q$. 

130: Trova il codice della lettera in 
punti e linee e lo immagazzina in F$. 


Man mano che 
impari le lettere, 
prova a fare a meno 
della tabella. 


MERE 
140: Va alla subroutine che visualiz- 
za un asterisco lampeggiante. 


160-170: Aspetta la tua risposta. 


180-190: Controlla se la risposta è 
esatta e stampa un messaggio. 


200-210: Si ferma e torna alla lettera 
successiva. 


220-250: Controlla F$ per tutta la sua 
lunghezza, ponendo K uguale a 1 
per i punti e uguale a 3 per le linee. 


260-270: Va alla subroutine che vi- 
sualizza l’asterisco. Torna indietro, 
pone K uguale a l e poi torna alla 
subroutine della linea 340 per ‘‘stam- 
pare’ uno spazio. Ciò darà l’interval- 
lo tra punti e linee. 

280: Ritorna al punto o alla linea 
successivi. 


310-320: Subroutine per la scelta 
casuale di una lettera. 


130 LET F$ = M$(CODE(Q$)—64) 330: ‘‘Accende’’ l’asterisco. 
O 230 LET W$ =F$(J) x 
235 IF W$=' "THEN GOTO 280 340: Fa una pausa di durata dipen- 
310 LET Q$=CHRS(INT(RND*26 +65)) dente da K. 
Ml 310 LET Q$ = CHRS(RND(26) +64) 
OD 330 PRINT AT 10,10;"*" 350: Stampa uno spazio invece 
@ 330 VTAB(10):PRINT TAB(10);''*” dell’asterisco. 
A 330 PRINT CHR$(19):FORT |1= 1 TO 10:PRINT:NEXT:PRINT TAB(10);*" 
Mm 330 PRINT@ 240,'*" 370-390: Subroutine per la lettura dei 
O 350 PRINT AT 10,10; dati. 
@ 350 VTAB(10):PRINT TAB(10); K sn , 
A 350 PRINT CHR$(19):FOR |= 1 TO 10: PRINT:NEXT:PRINT TAB(10);" 400-450: Linee contenenti i dati. 
Mm 350 PRINT@240," 


O 370 DIM M$(26,4) 


Soluzioni dei quesiti 


Ecco le soluzioni di alcuni dei quesiti di questo 
libro. Le tue soluzioni potrebbero essere 
differenti, ma ciò non ha importanza puché 
funzionino. Controlla però che siano chiare e 
semplici come queste riportate qui sotto. 


Occhi da Spia 


Ecco come si fa per aggiungere una 
routine di punteggio massimo. 


15 LETH=0 
215 PRINT “IL PUNTEGGIO MASSIMO È";H 
275 IF P>H THEN LET H=P:PRINT ‘HAI SUPERATO IL PRECEDENTE PUNTEGGIO 
MASSIMO" 
290 INPUT AS:1F A$ = ''S” THEN GOTO 20 


Faro nella notte 


Ecco come fare per tenere acceso il faro 
più a lungo. 


430 IF C1=TC THEN LET L= 1:LET C1=0:LET TC=INT(RND(1)x10+(8—A)) +10: 


GOSUB 300 
... ed ecco come si dà una seconda 
possibilità al giocatore. 
15 LET NP=0 


255 LET NP=NP+1 
257 IF NP< 2 THEN FORT=1 TO 200:NEXT T:GOTO 


NP è una nuova varia- 
bile che sta per ‘‘nume- 
ro di partite”. 


Questo loop fa fare una pau- 
sa per permetterti di leggere 
il messaggio. Aumenta il nu- 
mero del loop per ottenere 
una pausa più lunga. 


Aumenta questo nume- 
ro per avere più di 2 
possibilità. 


Robot-Spia 
Con queste linee il computer chiederà il 


nome al giocatore se viene superato il 
precedente punteggio massimo. 


25 LET H$ = “NESSUNO” 
330 Togli questa linea 
365 IF E=1 AND S>H THEN LET H= S:GOSUB 410 
410 PRINT ‘HAI SUPERATO IL PRECEDENTE PUNTEGGIO MASSIMO!" 
420 PRINT ‘JUL TUO NOME, PREGO" 
430 INPUT H$:RETURN 


Prova di Abilità 


Ecco come si fa per aumentare il nume- 
ro delle posizioni da 10 a 15. 


10 DIM N(15):DIM N$(5) 
7C,160,200,460. IN QUESTE LINEE SOSTITUISCI IL 10 CON 15 
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GIOCHI DEL 
BRIVIDO 


22 I programmi dei 
giochi del brivido 
23 Incubo col computer 
24 Il Mago dei numeri 
26 Acchiappafantasmi - 
28 La Donna Ragno 
30 Lo Scavafosse 
32 La Casa Folle 
34 Il Labirinto dello 
Spettro 
37 Soluzioni dei quesiti — 


I programmi dei giochi del brivido 


Questi programmi sono scritti per dei 
giochi semplici da giocare su un 
personal computer. Essi funzionano 
sui computer ZX81 (con espansione 
di memoria), ZX Spectrum, BBC, VIC 
20, Dragon, Oric, TRS-80 e Apple. Il 
listato principale di ogni gioco 
funziona sullo ZX81, e le linee che 
devono essere convertite per i vari 
computer sono contrassegnate coi 
seguenti simboli: 


A VIC e Pet 
BBC 

MW TRS-80 

@ Apple 

) ZX Spectrum 
© Dragon 

O Oric 


Ogni volta che vedi il simbolo del 
computer che stai usando all’inizio di 
una linea, sostituiscila con la linea in 
calce al programma che porta il 
simbolo corrispondente. 


Come far girare i programmi 


Quando hai intrtlotto il programma, 
controllalo con attenzione. Ricordati che è 
facile commettere errori quando si 
copiano i programmi, anche se sei molto 
esperto. Per cominciare il gioco, dai il 
RUN. Se il programma non funziona 
correttamente, è molto probabile che 
contenga ancora qualche errore, per cui 
fai il LIST del programma e controllalo di 
nuovo. Quando la partita finisce, il 
computer ti comunicherà qualcosa del 


Incubo col Computer è ispirato ad un’idea di 
Brendon Kavanagh 

Il Mago dei Numeri, Acchiappafantasmi e Il 
Labirinto dello Spettro sono stati scritti da 
Colin Reynolds 

La Donna Ragno è stato scritto da Val 
Robinson, Lo Scavafosse da Alan Ramsey e La 
Casa Folle da Keith Campbell. 


tipo BREAK IN 200. Per giocare ancora, 
devi dare di nuovo il RUN. 


Esperimenti coi programmi 


Nel libro troverai dei suggerimenti su 
modifiche che potrai fare ai programmi, 
ma non devi aver timore di sperimentare 
cambiamenti inventati da te. Poiché i 
programmi sono stati scritti per funzionare 
su molti computer diversi, spesso non 
fanno uso di grafiche, colori o suoni. 
Potresti provare a riscrivere i programmi 
per il tuo computer, arricchendoli di 
grafiche, suoni e qualsiasi altro effetto che 
il tuo computer consenta. 


Come cambiare la velocità 


In alcuni dei giochi troverai anche le 
istruzioni per modificarne la velocità. 
Potresti anche ritenerlo necessario, dato 
che molti di questi giochi dipendono sia 
dalla velocità del tuo computer che dalla 
tua prontezza di riflessi. Quasi 
certamente, dopo che avrai giocato un 
po’ di volte, vorrai renderli comunque più 
veloci. 


Incubo con il Computer 


Sei un maniaco del computer che veglia fino a tarda notte, e ti sei addormentato 
sulla tastiera. Improvvisamente, il tuo computer si anima e comincia a lanciare nu- 
meri e a maltrattarti. Per domarlo, devi riuscire a colpire i numeri, man mano che 
appaiono sullo schermo, premendo il tasto del numero corrispondente a quello 
‘‘lanciato’’ dal computer. Il tuo punteggio iniziale (300 punti) cresce se premi il 
tasto giusto e diminuisce ogni volta che sbagli. Se riesci ad arrivare a 500 punti, il 
computer si arrenderà e vincerai tu, ma se il punteggio cala fino a zero, diventerai 
schiavo del tuo computer. È un vero e proprio incubo. Riuscirai a non impazzire? 


Come funziona 


Pone il punteggio uguale al valore 
iniziale. 


ROMA@LI TIT CEcs 


Immagazzina in memoria i 


C&ld4="T COMPUTER SOPHO GRAHDT I" commenti. 
PA LET C&CG3="&S0HO PISO TH GAMBEA TO! 
AO! Pulisce lo schermo. 
dA | faTiiTeR | Un ei 1 È, 
MmOBA@I LET H=] RNDESS+1 Sceglie un numero tra 1 e 9 e lo 
pone in N. 
[AG PRIHT THECSA:Ho Stampa N e il tuo punteggio (S) in 
116 PRINT TABL150:5 punti differenti dello schermo. 
E CoMA@®! co Bpato A.5 THEN GOTO 150 Decide se andare alla linea 150. 
146 PRINT C$CINTES/1001+1% PERA Stampa messaggi diversi a 
14560 IF SCG60 THEN PRIHT"SHON HAT SPERAHZEN" seconda del tuo punteggio. 


{60 IF SC440 THEH PRIHT"URCAI ATUTOI 
Va a controllare se stai premendo 


anita ia FOR I=1 TO 14 un tasto, e in questo caso, lo 
040 ga SA LET RE=IHKEW4 immagazzina in F$. 
199 IF A&c>"" THEN LET F&=A# 


Diminuisce il punteggio di 10. 


200 MEXT I 
Vi ia | Se hai premuto il tasto sbagliato, il 


FAL == computer salta alla linea 240 per 
-(F&£3<3HN THEH GOTO 240 evitare l'aumento del punteggio 
ST+LA+N#2 della linea 230. 


HEH GOTO 276 Controlla il punteggio per vedere 
4 THEH GOTO 90 se hai vinto o perso e-salta alla 
pa ara routine di chiusura. 


Torna indietro per un altro gioco. 


GOTO 20 
PRIMT"OFA SEI MIO SCHIAVO" 


STOP s: WE 
1 "fe TO“ - ee STA NT La velocità del gioco dipende da questo 
PF INT OK. HAI VINTO “PER STAVOLTA numero. Probabilmente dovrai 
STOP modificarlo per adattare la velocità del 
computer alla tua prontezza di riflessi. 
Il listato in alto funziona sullo ZX81. Un numero più alto rallenterà il gioco. 


Per gli altri computer, dovrai fare 
queste modifiche. 


4 O0MA@® 10 DIM C$(5) Modifiche da provare 
e 80 HOME : Le linee 20, 210 e 230 
a 80 FRINT CHR$ (147) controllano il punteggio. 
# OA@ PO LET N=INT(RND(1)*9)+1 Cambia i numeri in queste linee 
om 70 LET N=INT(RND(0)*9)+1 e guarda cosa succede. 


# OA@ 120 IF RND(1)>0.5 THEN GOTO 150 


om 120 IF RND(0)>0.5 THEN GOTO 150 Quesito 
x OOMA@® 170 FOR I=1 TO 400 i unta 

© 175 A1$="" Sei capace di modificare il 

e 180 IF PEEK(-165384)>127 THEN GET A$ programma in modo che 


visualizzi lettere invece che 


* 1B0 LET A$=INKEY$ (0) numeri? 


A 180 GET A$ 
1B0 LET A$=KEY$ 


Questo è il gioco che il Mago dei Numeri propone a chi gli fa visita. 
Mediante un incantesimo ferma a mezz'aria i numeri da 1 a 9, e poi fa 
ruotare due dadi. Devi dargli allora due numeri tra quelli che appaiono a 
mezz'aria che, sommati, diano lo stesso totale dei numeri sui dadi. Una 
volta usato un numero, la sua immagine sparirà, e non potrai usarlo 
un’altra volta. Vinci se fai sparire tutti i numeri prima di usare tutte le 
possibilità. (Avrai una possibilità in più ogni volta che dal lancio del mago 
usciranno due numeri uguali). Puoi usare lo zero come numero quante volte 
vuoi. Se non riesci in un turno, vai al prossimo, introducendo lo zero due 
volte. Guarda quante volte riesci a battere il Mago. 
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AGC DET MIUIMERT 

TONE GEHERAILE 
[ SIL MAGO DEI HUMERIT" 
[IM ACI: 


150 


FETHT 
TF_N=S THEH GOTO =7 


Come funziona 


Prepara l’array A. 
Stabilisce il numero di turni. 


Mette un 1 in ogni spazio di A. 


Si assicura che A(1) contenga 
sempre l (ciò ti permette di usare 
lo zero quante volte vuoi). 


V tiene conto di quanti numeri so- 
no stati usati (all’inizio viene 
azzerato). 


Visualizza i numeri. Se A(1)=0, il 
numero è già stato usato, per cui 
lascia uno spazio e aggiunge l a 

V. 


Quando tutti i numeri sono stati 
usati, va alla fine del gioco. 


PRINT "HET AHCORA "/T;" POSSIETI TTA "= Ti dice quante possibilità ti 


} HESSE RI 
HT CRHIBES+1 0 
NILO LAK 


restano ancora. 


Sceglie i numeri per il lancio dei 
‘dadi e li visualizza. 


Se sui due dati è uscito lo stesso 
numero, ti dà una possibilità in 


= i più. 
1 THEH GOTO gg SE LE le possibilità di 1; 


THPLT H 
IHFUT M 


GOTO Fa 
PRINT "HA VINTO TL MAGO" 
STOP 


mani 


"HAT MIHNTO TU" 


i 


Il listato in alto funziona sullo ZX81. 
Per gli altri computer, dovrai fare 
queste modifiche. 


®70 HOME 

A70 PRINT CHR$ (147) 
OA@200 LET C=INT(RND(1)*6+1) 

200 LET C=INT (RND (0) *6+1) 
OA®210 LET B=INT(RND(1)*6+1) 

%210 LET B=INT (RND(0)*6+1) 


controlla che T non sia zero. 


i chiede due numeri e controlla 
che siano validi. 


Se non danno il totale giusto, o 
uno di essi è già stato usato, tor- 
na indietro per il giro successivo. 


Se i numeri sono giusti, gli 1 nei 
relativi spazi in A vengono sosti- 
tuiti da altrettanti 0, per mostrare 
che sono già stati usati. 


Prova a fare in modo che il compu- 
ter torni automaticamente indietro 
per un’altra partita, quando una fi- 
nisce, e che registri anche quante 
volte vinci e quante volte perdi. 
Potresti anche inventare una puni- 
zione terribile per i giocatori che 
perdono troppo.... 


xa 


I fantasmi in questo gioco sono numeri che svolazzano sullo schermo. Per 
acchiapparli, devi mettere in moto il tuo aspiratore di fantasmi, premendo 
il tasto X, ma esso funzionerà solo se il suo numero è lo stesso del fantasma 
che ti sta attaccando. Puoi aumentare il numero dell’apiratore, premendo il 
tasto M (dopo che è arrivato al 9, torna di nuovo allo zero). Se non riesci ad 
aspirare un fantasma, esso ti priverà di una delle vite (indicate come / alla 
sommità dello schermo). Vediamo se sei bravo ad acchiappare fantasmi! 


3 REM ALCHIAFFAFANTASMI ° 

5 REM VERSIUNE GENERALE Come funziona 
16 PRINT "ACCHIAFFAFANTASMI" 
20 LET S= 

30 LET Y=8 NO 
ue Azzera il punteggio e il tuo numero. 


Pone il numero di ‘‘vite’’ uguale a 3. 
Sceglie a caso un numero tra 0 e 9 per il 


40 LET L=s 
GR) Comae Sb LET H=INT “EHD*19) 


fantasma. 
Fa partire il contatore per la distanza che 
| il fantasma può percorrere prima di 
64 LET I=1 raggiungerti. 
ep er = TO L Loop per visualizzare le tue ‘‘vite’’, come 
O i e n / nell’angolo in alto a sinistra dello 
96 PRINT "2"; schermo 
146 MES i A, f 
119 PRINT iui...) === ViSualizza alle posizioni esatte sullo 
1254 PRINT TABSIS:N: TRBC184; "0" 4 schermo il numero del fantasma, la 
barriera ‘‘:’’ e te(y). 


Questo è un gioco adatto per ag- 
giungerci suoni. Prova ad aggiun- 
gere delle subroutine per qualcosa 
che faccia gelare il sangue quan- 
do il giocatore perde una ‘‘vita’’, 
e qualche altro suono per quando 
i fantasmi vengono aspirati. 


LET E&=IMKE1$ 

IF E#="X" THEN GOTO 226 
1F B&="M" THEN LET 1=74+1 
IF Y=19 THEN LET #3 


LET I=1+1 
IF IC18 {THEN GUTO 76 


LET L=L-1 


PRIMI "IL TUO PUNTEGGIL CUME" 


FRIMI "ACCHIAFFAFANIASMI ESCI 


FRINHI 

PRINT "UN ALIER FHETLIO *" 
PRINT “<FREMI 5 UHi" 
INFUT H$ 

1F_H$="5" THEH HUH 

IF R&="H" THEH STUP 


Puoi modificare la velocità di 
questo gioco, cambiando il numero 
alla linea 125. Per renderlo più ve- 
loce, usa un numero più piccolo. 
Puoi renderlo più difficile, riducen- 
do i numeri alla linea 120. 


IF L=69 THEN GOTO SG 
GOTO ecu 
IF WA3H THEH LOTO 1/6 
FRINT "PRESO" ; 
ta. 
RINT "#$%6%" bia 
S=5+ (18-10 


Controlla se stai premendo un tasto. 


Se premi X (attivi l’acchiappafantasmi) il 


computer va a fine programma per 
vedere se puoi farlo. Se premi M, 
aumenta il numero di 1. 

Azzera il tuo numero quando ha 
raggiunto 10. 


Aumenta il contatore della distanza del 


— fantasma; se non ha raggiunto la barriera 


e tu non l’hai aspirato, il computer torna 
a stamparlo nella posizione successiva. 


Se ha raggiunto la barriera, perdi una 


Torna indietro per un altro fantasma se ti 


restano ancora vite. 
Controlla se il tuo numero era come 


quello del fantasma quando l’hai aspirato; 


se non lo era torna indietro per il 
fantasma successivo. 


Il listato in alto funziona sullo ZX81. 
Per gli altri computer, dovrai fare 
queste modifiche. 


&) OA@50 LET N=INT(RND(1)#*10) 
50 LET N=INT (RND(0)*10) 
®70, 270 HOME 
A70,270 PRINT CHR$(147) 


120 


27 
©0128 
0130 


dir 


fata (EE 
1 


#130 
A130 

130 

)MaA® |245 
SS 


PRINT SPCC(I);N; SPC 
(1B-I);":"5Y 

FOR K=1 TO 50 

NEXT K 

LET B$="" 

IF PEEK(-16384) >127 
THEN GET B$ 

LET B$=INKEY$ (0) 
GET B$ 

LET B$=KEY%$ 

FOR K=1 .T0 300 
NEXT K 


La Donna Ragno 


Aiuto, la Donna Ragno! 

Devi essere fortunato, oggi è di buon umore. Se riesci a indovinare la 
lettera che sta pensando, e abbastanza velocemente, ti lascerà andare. 
Altrimenti, probabilmente verrai trasformato in mosca. 

Per scoprire quale sia la lettera, dai una parola alla Donna Ragno, ed essa 
ti dirà se la parola contiene o no quella lettera. 


LET G=0 
CLS 
LET T=IH 
LET T&=CHF 
PRINT "LA 
PRINT "HA 
PRINT 
SA PEIMT 
90 PRINT 
10 PRINT 
THPUT M& 
LET G=G+1 


CRD 


DOHNA FAGHO" 
SCELTO" 


SFRONA CON UNA PAROLA" 


È LET L=LEN chiù 
IF 1<4 OF L>S THEN GOTO 76 
LET F=6 


TO L 
LET A$=W$ECT TO Id ; 
IF R$=T£ THEH LET F=1 


IF 


1 THEH GOTO 
PFPEITHMT 


tr] 


PRINT "SI. E° 
FRINT 

PRINT "VUDI FEHSAHRCI 
TMPLUT F# 
IF _R8="N" 
PRINT 


UHR DI MMKESTE" 


THEH GOTO 2504 


PRINT "ALLORA GUALE GIR" 
THPUT GE 


TF_GE%5 


MICI CHE 


TO dia 


STOF 
PRIMT 
SETHT 
STOP 


"DI HAI 
"ORA SEI 


MESSO TROPPO" 
UNA MOSCe" 


Il listato in alto funziona sullo ZX81. 
Per gli altri computer, dovrai fare 
queste modifiche. 


HOME 
PRINT CHR$ (147) 
LET T=INT (RND*26+65) 
OEHA@30 LET T=INT(RND(1)*26+65) 

30 LET T=INT(RND(0)*26+65) 
ma© [170 LET A$=MID$(W$,1,1) 
#O% |230 FOR A=1 TO 500 

®250 HOME 

A260 PRINT CHR$ (147) 


© 20 
AZO 
130 


Come funziona 


2646551 Sceglie un numero, lo converte in 
ETà lettera e lo pone in T$. 


Ti chiede una parola. 


Tiene conto del numero di 
tentativi. 

Controlla che la parola non sia 
troppo corta o troppo lunga. 


Controlla la parola per vedere se 
contiene la lettera. In caso positivo 
va alla linea 280. 


Se non trova la lettera nella 
parola, stampa il messaggio. 


Loop di ritardo per permetterti di 
leggere il messaggio. 


Dopo 15 tentativi il gioco finisce. 
Pulisce lo schermo. 


Visualizza il messaggio se la paro- 
la contiene la lettera. Ti chiese se 
vuoi tirare a indovinare. Se non 
vuoi, torna a chiedere un’altra 
parola. 


Stampa un messaggio diverso a 
seconda se hai indovinato o meno. 


Esperimenti da provare 


Guarda cosa succede se sostituisci il 15 alla 
inea 250 con un numero più piccolo. E se 
cambi il 4 e l’8 alla linea 140? 


Come modificare il gioco 


La Donna Ragno ne ha abbastanza, e vuole 
che tu modifichi il programma nel modo 
seguente: 

Se la tua parola contiene la lettera pensata, 
ti permette due possibilità per tirare a indo- 
vinare, ma se sbagli, perdi 5 tentativi. Sei 
capace di farlo? 


Lo Scavafosse 


È una notte buia e tempestosa: non è di 
certo adatta per perdersi in un cimitero, 
ma a te è capitato. Hai tempo fino a 
mezzanotte per trovare l’uscita. Scheletri 
si acquattano nell’ombra, aspettando che 
ti avvicini a loro per spaventarti a morte. 
Puoi scavare delle fosse per tenerli 
lontani, ma scavare è un lavoro faticoso 
per cui non puoi fare più di cinque fosse 
per partita. Devi inoltre stare attento a 


Sepe "> 


- . NE denti 
ali non cadere tu stesso nelle fosse che hai CADE C+ 
a scavato. Le lapidi (simbolo +) e le mura C=COnE cone 
2 di recinzione del cimitero (simbolo :) ti =CODE CN ili 
-. bloccano la strada. Le fosse che scavi i de nn 
< sono indicate con 0, tu sei l’asterisco e SATOIA 
‘1, gli scheletri sono le X. Riuscirai a =D 
h sfuggire? “Il 
Come funziona ici 
50-90 Riempie l’array A con spazi el 24 hi 
vuoti. ENP a ITASC 
110 Stabilisce il numero massimo LET F=eTHTC RHI7+21 


120-170 Codifica i simboli da usare. { LET AeF,G=F 
180-260 Mette i muri nell’array. HET 1 
270-310 Sceglie a caso le posizioni per le => 
(A | lapidi. 
DI 320-390 Stabilisce le posizioni iniziali 
a del giocatore e degli scheletri. 
do, 400-420 Mette gli scheletri nell’array. 
ei 440-460 Calcola la tua nuova posizione. 
—£d 650-740 Controlla cosa c’è nella nuova po- 
pu. sizione. Se non c’è nulla, effettua stà 
lo spostamento. da 
710-850 Visualizza messaggi diversi a i SE 
seconda dell’esito della partita. 43 
860-980 Visualizza il cimitero. 4 
1030-1100 Mette una fossa nell’array se la 450 PRINT "MISSA "ch 
vuoi. 4658 PRINT "PUOT ANDARE AO ME 
110-1310 Muove gli scheletri. A THPUT AÉ 
TEO RE="H" THEH GO 
d9u IF A#= THEH GO 
Soa IF R£= THEH GOTO EG 


permesso di fosse. 


99 LET GETHTCRMDBIS+<T% 


Sio TFo pa= 
nto 4 


TREN GOTT Ea 


LET U=M 1990 LET 
GOTO 650 1100 LET AcF.S 

A LET T=H 11168 FOR Tsi TOS STEP 3 

i LET U=M+1 {1205 LET -Pi JT: 
IF RET.HS=7 AMD M=13 THEH GOTOM 77M 1136 LET U=Bl.T+11% 
GLTO ESA 1140 IF ACT. +1 3=% THEH GOT 
REL IENE 1150 IF RET.-1i=y THEM GOTA 
LET USM 1160 IF ROT-1.Ut=S" THEN GOTO 
GOTO 656 1DI7A IF _RST+1 dbi=" THEH GOT 
LET T=H 1150 IF R&="0" THEH GOTO 1300 
LET U=M-1 1136 IF R&="5" AND ACT+1 . L3=7 THEH 


TF_RîT. ibis? THEH GOTTO 7 
TE RETAIL" ORO AET.UI=E 

FAST. Abs THEH GO0TO 
IFORET.HS=E THEH GOTA AZIO TF A&="E" AHT ACT.H+ 37 AHTI 
PRINT "LA STERTIAR E ELOCCATA" MALL THEM GIOTTO 1240 


TA GOTO4SA n 1220 IF A&="E" AND AET.U-13=7 
LET Achi, Mu 


LET HsT THEH GOTO 1256 
3 LET Met 
LET AcH. Mis" 
SUE 


GOTO 12F9 
OTO 2960 12060 IF R&="NH" ANT AT 1b5=2 THEH 
GOTO 1256 


"TI TUO RISULTATO E "IMTE CARO 141/504 0 54 


4 


ADITO TH" 

"HHR DELLE THE BUCHE" I i 1u=Fi T+10+2 
LET Bi£.1+13=EC.1+11-1 
GOTO me 1° 
LET Ecti=EcJu+3 
LET Ei Tu=Ec.Ta-1 
LET RET.lU1=7 
HET I 

RETLIFH 


"SEI STATO SPAVENTATO! 


"A MORTE neo HH SCHELFTES" 


Il listato in alto funziona sullo ZX81. 
Per gli altri computer, dovrai fare 
queste modifiche. 


ADD @ 10, 870 HOME 
A 10, 870 PRINT CHR$(147) 
5 098 A@®70, 120-170 MODIFICA CODE IN ASC 
 OA@280, 290 MODIFICA RND IN RND(1) 
081280 290 MODIFICA RND IN RND (0) 


\ ALI 


Ue 


VVIACEN 


"N, 
é 


RZ 
Ù) 4 3 ®,j 


ll 
* 


fio 


TO 


è) 
AG 


abeti 


La Casa Folle 


Ti trovi intrappolato in una casa dove tutto si muove, comprese le pareti. Se le 
porte si trovano allineate, anche per un momento solo, potrai fare uno scatto 
verso la libertà. Hai trovato un quadro comandi che sembra essere in grado di 
controllare alcuni dei movimenti della casa. I tasti X e C fanno cambiare 
direzione alla porta più vicina a te (in alto sullo schermo); i tasti N e M hanno lo 
stesso effetto sulla porta più distante da te, ma sembra che non ci sia alcuna 
possibilità di controllare la porta centrale. Mentre stai freneticamente lottando 
con i comandi del quadro, senti dei passi nel corridoio dietro di te. Il numero 
nell’angolo in alto a sinistra sullo schermo mostra l’avvicinarsi di quei passi. Se 
non riesci a scappare prima che i passi-fantasma ti raggiungano de 

... aaggghhhh! ‘ 


Se il tuo computer ha il 
suono, prova a creare de- 
gli effetti sonori per i pas- 
si e per la fine del gioco, 
nel caso in cui il giocato- 
re non riesca a scappare 


Come funziona 


Prepara due array. Il primo si ri- 
ferisce alla posizione (P) di cia- 
scun’uscita e l’altro alla direzio- 
ne (S) in cui essa si sposta. 


DIM Pe 


16 
za DIM Sé 


i CLS 
PFPRIHT "LA CASA FOLLE" Crea una fila di asterischi di lun- 
LET Lg="" ghezza pari alla larghezza dello 
LET W=351 . schermo (W) e la mette in L$. 
FOR I=1 TO W Pone il contatore dei passi al va- 


SA LET L#=L$+"%" lore iniziale. 
e NERI Nine Stabilisce la direzione del movi- 
6 LET PESO mento delle porte all’inizio del 
E ì Ci E gioco. 


LET 
Sceglie casualmente le posizioni 
iniziali delle tre uscite. 


Visualizza pareti e porte. 


Visualizza il contatore dei passi 
in alto a sinistra sullo schermo. 
Controlla se i passi ti hanno rag- 
giunto, e in questo caso va alla 


AT A.A:CT 


4 THEH GO0TO045soA 


‘€23 AND F(21=P(31 THEN GOTO 39@ fine del gioco. 
i È Controlla se hai vinto. 
FOASZ4A LET TE=IMEEYE Controlla la tastiera per le istru- 
"2556 IF 28="" THEH GOTO 306 


zioni. Se necessario, cambia dire- 


"«" THEH LET Sé zione al movimento modificando i 


" THEH LET S segni + e —. 
7$="H" THEH LET x ; 
Sla Lig LET S Sposta l’uscita centrale ogni 25 
passi. 


CTS251 THEH LET Pif=Peozi+ HT C(RHOICI 8203-10] 


Diminuisce il valore del contato- 
re dei passi. 


Trova la nuova posizione delle 


Fi IF P”I31 THEH LET P“I1=1 porte. Se la porta raggiunge il 

ATF PeoTised=-40 THEH LET Pe Tishk-4 bordo dello schermo, il compu- 
MESTOI ter la tiene ferma in quel punto. 
GGOTO 176 i 

A LET LaPC13+1 Torna alla mossa successiva. 
FOR Isi TOO 15 
PRIHT ATO T.L;"IM" . A 
"e casi 24 FEDE pa Visualizza la tua fuga attraverso 
PPIHT “SEI LIBERO li" le uscite con un messaggio. 


4A STOF 
1 PRIMT "TROPPO TARDII OT PASSI ST SONO crenemi | 
SA PRINT "ARGHHHI LI" 


A STOP Stampa il messaggio di sconfitta. 


Il listato a fianco funziona sullo ZX81. Per BBC 

gli altri computer, dovrai fare queste 60 LET W=40 

modifiche. 140 LET PC(I)=INT(RND(1)*(W-4))+1 
180 PRINT TAB(0,I);L% 


O ORIC . 190 PRINT TAB(P(I/5),I);"> <" 
140 LET P(I)=INT(RND(1)*(W-4)+1) 210 PRINT TAB(0,0);CT 
180 PLOT 1,I,L%$ 240 LET Z$=INKEY$ (10) 
190 PLOT P(I/5),I,"> <" 300 IF CT/25=INT(CT/25) THEN LET 
210 PLOT 0,0,STR$ (CT) P(2)=P(2)+INT (RND(1)#*20)-10 
240 LET Z$=KEY$ 410 PRINT TAB(L,I);"M" 
300 IF CT/25=INT(CT/25) THEN LET 
410 PLOT L,I,"M" i; VIC-20 

P(2)=P(2)+INT(RND(1)#*20)-10 30 PRINT CHR$ (147) 


60 LET W=21 

140 LET P(I)=INT(RND(1)*(W-4))+1 

160 PRINT CHR$ (147) 

170 FOR I=1i TO 3 

172 FOR J=1 TO 5 

174 PRINT 

1B0 NEXT J 

190 PRINT LEFT$(L$,P(I));"> <"5 
RIGHT$(L$, (18-P(I))) 

210 PRINT CHR$(19);CT 

240 GET 2$ 

300 IF CT/25=INT(CT/25) THEN LET 
P(2)=P(2)+INT(RND(1)*20)-10 

375 PRINT CHR$(19) 

395 PRINT CHR$(19) 

410 PRINT TAB(L) "M" 


APPLE 


30 HOME 

140 LET P(I)=INT(RND(1)*(W-4))+1 

160 HOME 

180 VTAB(I) 

185 PRINT L$ 

190 VTAB(I) 

195 HTAB(P(I/5)) 

197 PRINT "> <" 

210 VTAB(1):HTAB(1):PRINT CT 

240 Z$="" 

245 IF PEEK(-16384) >127 THEN GET 2% 

300 IF CT/25=INT(CT/25) THEN LET 
P(2)=P(2)+INT (RND(1)*20)-10 

395 VTAB(1) 

410 PRINT TAB(L) "M" 


TRS-80 


60 LET W=63 

140 LET P(I)=RND(60) 

170 FOR I=2 TO 12 STEP 5 

180 PRINT@(I*64),L$ 

190 PRINT@(I*645P((I+3)/5)), "> <" 

210 PRINT@0,CT 

300 IF CT/25=INT(CT/25) THEN LET 
P(2)=P(2)+RND(20)-10 

410 PRINT@(I*64+L), "M" 


DRAGON 

50,70,80,90 DELETE 

140 LET P(I)=RND(28) 

170 FOR I=2 TO 12 STEP 5 

180 PRINT@32*I,STRING$(P((I+3)/5)-1, 
"#")5 "> <4"5STRING$(28-P 
((I+3)/5),"*"); 
DELETE 
PRINT@0,CT 
IF CT/25=INT(CT/25) THEN LET 
P(2)=P(2)+RND(20)-10 
PRINT@(I*32+L), "M" 


Che cosa succede se cambi il 
numero alla linea 100? 

E se togli il segno meno alla 
linea 120? 

Cambia i due 25 alla linea 300 
con i numeri diversi e osserva la 
differenza. 


Il labirinto dello Spettro 


È un posto lugubre. Gli scuri corridoi, tutti uguali tra loro, sembrano non 
portare da nessuna parte. Potrebbero essere anche infestati da spettri ... Puoi 
vedere soltanto dritto davanti a te e ti puoi muovere solo nella direzione verso 
cui stai guardando. Puoi girarti a destra e a sinistra, ma ciò servirà soltanto a 
mostrarti il labirinto da un’altra angolazione. Tutto ciò che devi fare è trovare la 
crocetta che segnala l’uscita. La tua posizione è indicata con una T e le pareti 
con dei segni #. Gulp! È veramente infestato dagli spettri! Gli spettri sono 
indicati dalle lettere S. Se te ne ritrovi uno proprio di fronte, verrai 
immediatamente trasportato in un altro punto del labirinto, senza sapere dove ti 
trovi e da che parte stai guardando. Ecco i tasti che puoi usare: X per spostarti 
in avanti, N per girarti a sinistra (di 90°), M per girarti a destra (di 90°). 


te [nes 


Prepara un’area di immagazzina- 
mento (array) per il labirinto. 
Prepara un mini-reticolo all’interno 
del labirinto che sarà la parte di es- 
so che potrai vedere sullo schermo. 

| Spazio di immagazzinamento per 
i dati per riempire una fila di 
questo mini-reticolo. 


Contiene i dati per il labirinto: 1= 
corridoio, 0=muro, 9=uscita. 


|P Loop che mette i dati nell’array E. 
Per iniziare, pone uguale a —1 il 


mumero di volte che lo spettro si è 
mosso. 

{0 {ET fan Azzera il numero degli spettri, 

i a per iniziare. 

Sceglie a caso la tua posizione di 
partenza. 

Se questa posizione non si trova 
130 IF Ec#<31 THEH GOTO 179 ———_—————T—T—t— in un corridoio, torna a prenderne 
un’altra. 

Va alla subroutine per il posizio- 
namento dello spettro. 

Per iniziare il gioco, sceglie a ca- 
so la direzione in cui ti trovi 
rivolto. 

Controlla se ti trovi vicino a uno 
spettro e in questo caso ti sposta 
altrove. 

Aumenta il numero di mosse che 
hai fatto. 

Va alla subroutine per spostare lo 
spettro ogni 5 mosse. 

Va alla subroutine che visualizza 
la sezione di labirinto che puoi 
vedere. 


TI 1 Ti chiede un’istruzione. Cambia il 
Ti-1 valore della direzione D, se 
occorre. 


IF R “ THEH | 


n 
a 
4 
4 


Torna alla mossa successiva se 
non ti sei mosso in avanti. 


Controlla se ti puoi muovere. 


Controlla se hai raggiunto 
l’uscita. 

36 ; Torna alla mossa successiva se 
34 non l’hai raggiunta. 


Il listato a fianco funziona sullo ZX81. 
Per gli altri computer, dovrai fare 
queste modifiche. 


Aggiungi d om 5_CLEAR. 

rumori he omae 130 LET E(CI)=VAL (MID$(W$,1,1)) 
Se il tuo computer ha il #OA@170 LET X=INT(RND(1)*50)+10 
suono, aggiungi un om 170 LET X=INT (RND(0)*50)+10 


rumore ogni volta che #OA@200 LET D=INT(RND(1)*4)+1 
appare lo spettro. ©1200 LET D=INT (RND(0)*4)+1 
©255 LET A$="" 
@®260 IF PEEK(-16384) >127 


| 4260 


THEN GET A$ 
LET A$=INKEY$ (0) 
GET A$ 

LET A$=KEY$ 

ON D GOTO 420,460,500,540 
HOME 

PRINT CHR$(147 
LET G=INT(RND(1)*50)+10 
LET G=INT(RND (0) *50)+10 


Lo 
) 


Migliora i simboli 


Prova a sostituire i simboli +, G, 
Te # con caratteri grafici (e 
anche colori). Questo implicherà 
delle modifiche alle linee dalla 590 
alla 620 e 840. 


Subroutine che calcola: 
a) quali quadretti puoi vedere dal 
punto in cui ti trovi 

b) che cosa mettere in questi 
quadretti. 

c) visualizza le istruzioni e la 
sezione di reticolo che puoi 
vedere. ‘* 


ngrandisci il labirinto 


Il labirinto è basato su una 
griglia contenente 70 quadretti. 
Per ingrandirlo dovrai modificare 
le seguenti linee, sostituendo N 
col numero di quadretti che vuoi 
che abbia il tuo nuovo reticolo. (N 


deve essere un multiplo di 10.) 
10: Sostituisci 70 col tuo numero, 


50-110: Aggiungi altre righe di 
numeri l e 0, con numeri di linea 
55, 65 eccetera, in modo che il 
numero totale di caratteri del 
reticolo sia N. 

120: Sostituisci 70 con N. 

170-180: Sostituisci 50 con N—20. 
580: Sostituisci 69 con N—]1. 


Subroutine per spostare lo spettro 
ogni cinque mosse. 


390 FOR I=s1 TO 4 A260 
400 LET T=1-1 260 
HOwmaeiii * RR A©SG4IO 
®4560 
A5LO 
*] VA®870 
Sa8870 
* Fe] £2 THEH GO0T0 
THEH LET W&£1,.3. 
THEH LET VET, 
THEH LET VECI 
2 THEH LET V#cI 
>LABIRINTO DELLO SPETTRO" 
PRIHT "AVANTI 3 
A PRIHT "A NESTRA 14” 
PRINT "RA STRA H' 
I N 
UK -] 
HE 
PRINT TARECPFI(/Pt 
HEAT I 
PETLIEH 
ET Tung" 
iti 
CE 
Ga ( (E TERMIESAR+1A 
: 31 THEN GOTO SPA 
"SET RIUSCITO 
IM "S@S+H;" 


È __— Messaggio di fine partita. 
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Seduta Spiritica 
Come funziona 


Stanno arrivando, lettera per lettera, dei messaggi dagli il programma 
Spiriti. Essi vogliono che tu ti ricordi le lettere e che le Dopo che hai copiato 
digiti sulla tastiera del computer nella sequenza esatta. Se MZ in 


omne . giocato un po’ di 
sbagli, si arrabbieranno, e molto... volte, esamina le linee 


Cerca asterischi sul tuo schermo: essi indicano le di programma e cerca 
lettere nei messaggi degli Spiriti. a che cosa servono. 
(Suggerimento: D è 
una variabile che dice 
ICT # al computer su quale 
d GOSUE 16 lato del quadrato —], 
1 2,304— sitrova la 
successiva lettera). 


SETNITO SETITTTIOIO 


I ( 


TEO fa THEM PRTIT 


| GMPaTITHIE LIO 


Il listato in alto funziona sullo ZX81. 
Per gli altri computer, dovrai fare 
E+LÙ queste modifiche. 


30 LET CS5S=64 
40. HOME 
40 PRINT CHR$ (147) 
260 LET N=INT (RND(1)#4+3) 
260 LET N=INT (RNDC(0)*4+3) 
GOTO ci La linea 490 con- 290 LET L=INT(RND(1)*26+1) 
LET 15 trolla la velocità al- 290 LET L=INT(RND(0)*26+1) 
LET 1 la quale appaiono 360 ON D GOTO 370,400, 430,460 
GOTO A gli asterischi. Per 490 FOR T=1 TO 100 
LET (1 rendere il gioco più 490 FOR T=1 TO 600 
LET ci veloce, sostituisci il 649 FOR T=1 TO 300 
i GOT < numero con uno pit Alf 640 FOR T=i TO 1000 
| piccolo. 710 FRINT TAB(X,Y)sA$; 
i 710 VTAB(Y) :HTAB(X+1):PRINT A$ 
710 PRINT CHR$(19):FOR K=1 TO Y:PRINT: 
NEXT:PRINT TAB(X):A% 
710 PRINTES2*Y+X,A$; 
710 PRINT@6A4XY+2*X,A$; 
710 FLOT X,Y,A$ 


Soluzioni dei quesiti 


Qui di seguito ci sono alcune possibili soluzioni ai quesiti proposti nel libro. 
Può darsi che le tue risposte siano diverse, ma ciò non ha importanza, 
purché funzionino. Controlla però che le tue risposte siano chiare e 
semplici come quelle che seguono. 


Incubo col Computer (pag. 23) 


]* o@Mma@ 90 LET N$=CHRS(INT(RND*26+ 38) ) Sceglie una lettera invece di un 
100 PRINT TAB(5);N$ numero e la visualizza sullo schermo. 


x . 
220 IF F$< >N$ THEN GOTO 240 ZII rpg PASIARIO ORA 


I Ooma® 230 LETS=S+10+(CODE(N$)—38 —________ Aumenta il punteggio. (Ciò dipende 
dalla lettera: Z vale più di A per 
) 190 LET N$=CHRS$(INT(RND*26 + 65) ) esempio). 


* A0 90 LET N$=CHRS(INT(RND(1)*26 +65) ) 
ca 90 LET N$ = CHRS$(INT(RND(0)*26 +65) ) 
) 1230 LET S=S+10+(CODE(N$)—65) 
* USM A4@ 230 LETS=S+10+ (ASC(N$)—65) 
Nota le diverse 
versioni per i diversi 
computer. 


Il Mago dei Numeri (pag. 24) 


Azzera il numero di vittorie e di scon- 


5 LETL=0 fitte all’inizio del gioco. 
6 LETW=0 


Aumenta il numero di volte che hai 
955 LETI=LE n pero: 


360 GOTO 390 7 l . 
380 LETW=W+1 Aumenta il numero di volte che hai 


390 PRINT vinto. 


400 PRINT “MAGO TU” Visualizza il tabellone del punteggio. 
410 PRINT 
420 PRINT "iL "W 


430 FORQ=1 To 1000 


Si ferma in modo che tu possa vedere 
440 NEXT Q ] ii punteggio. 
450 GOTO 30 —— Toma indietro per iniziare un’altra 


partita. 


Per i computer più 
veloci dovrai cambia- 
re questo numero. 


La Donna Ragno (pag. 28) 


Azzera il numero di tentativi di tirare 


5 LETNG=0 [ a indovinare. 
Aumenta il numero di tentativi di 
355 LET NG=NG+1 tirare a indovinare. 
360 IF G$=T$ THEN GOTO 370 — 2114#£e hai indovinato, ferma il gioco. 
Stampa il messaggio che ti comunica 


362 PRINT ‘NO, SBAGLIATO” ———_—_—_——— che hai sbagliato. 


Aumenta il numero di tentativi fatti di 
364 LET G=G+5 5: punizione per non aver indovinato. 


366 IF NG=2 THEN GOTO 410 —T —______ Se hai usato entrambe le possibilità di 
tirare a indovinare, il gioco finisce. 


368 GOTO 230 —_________ Torna indietro per il tentativo 
successivo. (Una pausa ti permette di 
leggere il messaggio). 
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GIOCHI DEL 
MISTERO 
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I programmi dei giochi del mistero 


I programmi seguenti sono scritti in 
una versione standard del BASIC, e 
ci sono le linee di conversione per la 
maggior parte delle principali 
marche di home-computer. Cerca 
sulla sinistra del programma il 
simbolo del tuo computer e poi vai a 
cercare la versione adatta di quella 
linea nella lista delle modifiche. 
Questi sono i simboli per le varie 
marche di computer: 


A Commodore 64 e VIC 20 
fk} BBC ed Electron 
[] Spectrum 
© Apple 
m TRS-80 
(versione di BASIC esteso) 


Qualcosa sui giochi 


I giochi sono molto semplici. Il loro 
scopo è quello di darti una mano affinché 
tu ti abitui al tuo computer e al linguaggio 
BASIC, introducendo i listati, 
correggendoli, e guardando come 
funzionano. I programmi non contengono 
né grafica né suono, dato che questi 
variano molto da computer a computer, 
ma se vuoi, puoi provare ad 
aggiungerceli tu. 

Puoi fare tanti c&inbiamenti e 
adattamenti ai giochi quanti ne vuoi: ci 
sono suggerimenti sui modi di farlo vicino 
ad ogni programma, e puoi sperimentare 
anche con tue idee. In questo modo 
potrai usare i giochi contenuti in questo 
libro come una base di partenza per 
creare i tuoi programmi che saranno più 
lunghi e complicati. 


Micropuzzle è stato scritto da Les 
Howarth e l’Abbraccio del Mostro da 
Adrian Hall. 


Le illustrazioni sono di Rob McCaig, Sue 
Walliker, Martin Newton e Graham Smith. 


Progetto di Roger Priddy 
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Come introdurre i programmi 
e come farli ‘‘girare’’ 


Ricordati che anche programmi corti 
possono essere molto difficili da copiare 
correttamente e possono richiedere molto 
tempo. Controlla ogni linea mentre la 
scrivi, dato che è molto facile commettere 
errori anche se si è esperti. Dopo aver 
introdotto tutto il listato, ricontrollalo per 
accertarti di non avere saltato linee, spazi 
o segni di punteggiatura. 

Per iniziare il gioco, dai il RUN. Leggi 
prima la presentazione del gioco, in 
modo da avere un’idea di ciò che devi 
fare prima di iniziare. Se il programma 
non funziona correttamente, è abbastanza 
probabile che ci sia un errore da qualche 
parte, perciò dai il LIST e ricontrollalo 
nuovamente. 

Quando la partita è finita, può darsi che 
il computer ti chieda se vuoi farne 
un’altra, oppure ti comunichi qualcosa 
come BREAK IN 200, nel qual caso dovrai 
dare il RUN per giocare ancora. 


Come cambiare la velocità 


Alcuni giochi dipendono sia dalla tua 
prontezza di riflessi che dalla velocità del 
tuo computer. Può darsi che tu voglia 
regolare la velocità in questo caso 
troverai le istruzioni accanto al listato del 
programma. 


e_ 


Torre del Terrore " pezN É 


, all'impazzata: sei entrato nella Torre del Terrore ... 
o 


3 REM TORRE DEL TERRORE 
5 VERSIONE GENERALE 
10 GOSUB 479 


Prova a cambiare il limite 
massimo delle pulsazioni. 


20 LET R$="BUONA FORTUNA" 
39 LET RM=9 
m049 LET H=21:LET M=INT CRND <1)#1@)+19 
59 LET P=54 PRES 
‘0460 CLS :PRINT:PRINT Tei capire STAGE AREA 
* 26 PRINT "LA TORRE .DEL TERRORE" 
© 89 PRINT " =" 


d aggi al- 
PRINT:PRINT R$ lei guleliner 


LET R$="":LET FL=INT CRM/5) 


il valore di shock. 
LET R=RM-FL#5+1 Ani oo 


120 PRINT:PRINT "TI TROVI" 
1309 IF FL=9 THEN PRINT "AL PIANTERRENO" 


IF FL=6 THEN PRINT "AL PIANO PIU” 
IF FL>9 AND FL{6 THEN FRINT "AL "FL". 
PRINT "NELLA STANZA ";R 
PRINT:PRINT "SONO LE ORE ":H;".";M 
PRINT:PRINT "FULSAZIONI CARDIACHE: 
@ LET GF=0 

IF RM=30 THEN GOTO 259 

LET TR=INT CRNDI €1349+15 

IF RND (12>.6 THEN GOSUB 420 

239 PRINT:PRINT "RITORNI INDIETRO 0 PROSEGUI €R/P)" 
F@®A4249 LET I$=IMKEY$ 


ALTO" 
PIANO" 


“iP 


2509 IF I$c>"R" AND I$<>"P" THEN GOTO 240 
260 IF I$="P" THEN GOSUB 400 

279 IF I#="K" THEN LET RM=KM-1:LET P=P-5 
289 IF AM=-1 THEN LET AM=0 


Che cos'è il Tesoro del- 
la Torre e come è arri- 
vato li? Forse puoi ag- 
giungere al programma 
le tue idee. 


= 
® 
n 


IF M>S9 


LET M=M+INT CRND C1)#3+13: 
THEN LET M=M-690:LET H=H+1 
1F H=12 THEN GUTO 360 
IF P>150 THEN GOTO 330 
IF P<49 THEN LET P=4@ 

IF FL=TR AND RND €13>.,5 THEN GOSUB 
GOTO 60 
PRINT "BENE, 


520 


IL TESORO E TUO!" : STOP 
PRINT:PRINT "E? MEZZANOTTE!" 
PRINT:PRINT "TROPPO TARDI! ":STOP 
PRINT:PRINT "SEI IMPAZZITO E" 

A PRINT "TI SEI GETTATO DALLA FINESTRA!" :STOP 
IF GF=1 THEN LET P=P+S#2:LET R$="AAAHHH!" 
LET P=P-1:LET RM=RM+1:RETURN 

LET TW=INT €END €13#3+10 

LET W$=G$(TY) 

LET S=INT CRND <1)#52+FL+TY#2 

A PRINT "DHYANTI A TE VEDI"IFRINT ME 

) ‘ RETURN 


="UNO SCHELETRO" 
'UN FANTASMA" 
"UNO SPETTRO S 


Hai la bocca secca, le gambe che ti tremano e il cuore che ti batte 


Premi il tasto P per spostarti di stanza in stanza. Ah!! c’è uno scheletro, poi un 
fantasma, poi uno spettro senza testa! Ad ogni nuovo spavento le tue pulsa- 
zioni vanno alle stelle. Prosegui (P), oppure ti ritiri (R) per riprendere fiato? 
Guarda l’ora: hai tempo solo fino a mezzanotte per raggiungere la cima della 
Torre e il Tesoro agognato. Controlla anche le tue pulsazioni: se raggiungono il 
valore di 150, diventerai pazzo e niente ti potrà impedire di gettarti dalla finestra. 


tri pericoli e a modificar- 


Come funziona 


10: Va alla sezione di inizializzazione 
per leggere i dati e immagazzinazrli. 
30: RM è la stanza in cui ti trovi. 
40-50: Stabilisce l’ora e il numero 
iniziale di pulsazioni. 

90: Visualizza i messaggi 
immagazzinati in R$. 

100-160: Calcola il piano e la stanza in 
cui ti trovi, tramite il valore di RM, e 
visualizza queste informazioni. 
170-180: Visualizza altre informazioni. 
190: GF è una variabile ‘‘flag’’ che 
viene attivata quando hai davanti 
qualche pericolo. 

200: Controlla se hai raggiunto 
l’ultima stanza. 

210: Sceglie la stanza dove mettere la 
botola. 

220: Possibilità casuale che ci sia 
qualcosa davanti a te: se c’è, va alla l 
subroutine appropriata. 

230-280: Aspetta la risposta del 
giocatore e agisce di conseguenza. 
290: Tiene conto del trascorrere del 
tempo. 

300: Controlla se è mezzanotte. 

310: Controlla se le pulsazioni sono 
troppo alte. 


330: Controlla se ti trovi nella stanza 
con la botola. 

400-410: Routine di proseguimento. 
Aumenta le pulsazioni se c’è un 
pericolo. 

420-460: Sceglie il tipo di pericolo e il 
suo valore di shock. 

470-510: Lettura dei dati per iniziare il 
gioco (inizializzazione). 

520: Subroutine della botola. 


Linee di conversione 


0 40,210,220,290,330,420,440 Sosti- 
tuisci RND(1) con RND 

m 40,210,220,290,330,420,440 Sosti- 

tuisci RND(1) con RND(0) 

PRINT CHR$(147):PRINT:PRINT 

HOME:PRINT:PRINT 

LET I$= INKEY$(0) 

GET 1$ e 

I$=‘’:1F PEEK(—16384)> 12 

THEN GET 1$ 

DIM G$(3,15) 


a 60 
© 60 
® 240 
A 240 
©® 240 
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Teschi della Piramide 


Una mente senza corpo: ecco cosa sei diventato dopo quel terribile incidente 
di molti anni fa, durante la costruzione della Piramide. 

Per soddisfare le richieste del Capo degli Spiriti Malvagi ci vuole tutta la 
tua energia mentale. Egli ti forza un numero in testa ogni giorno; devi far 
cadere con la tua volontà dei teschi dalla Piramide finché non raggiungono 
le pietre numerate ai piedi della stessa, nel tentativo di raggiungere quel 
numero. Per far cadere un cranio, premi 1, 2, 3 o 4. Devi usare cinque crani 
per volta, né più né meno. Raggiungi il numero giusto e liberati dalla 
Maledizione della Piramide. 


Aumenta il valore di SP alla 
linea 10 per rendere il 


programma più veloce. 10: Inizializza le variabili. 


20: Sceglie il numero che il 
A giocatore dovrà raggiungere. 
3 REM I CRANI DELLA PIRAMIDE 


5 REM VERSIONE GENERALE III ; 
LET TS=B:LET 1$="@":LET SP=3 ef se tr ii 
LET N=INT CRND C11#368)+19 iniziale e aspetta che 
CLS:PRINT giocatore lo veda 

9 PRINT "I CRANI DELLA PIRAMIDE" 

6 PRINT 90-240: Visualizza la piramide e 
PRINT "IL NUMERO FINALE DA" i numeri alla base e alla 
PRINT "OTTENERE E”: ";N:PRINT stà di 
LET K=3@00:GOSUB 540 RORATAHA di une: 
CLS:LET +32 
FOR I=l TO 4 

4 LET ASSSTRS CID'LET K=642#1 

20 GOSUEB 560 \\/ Prova a sostituire 
HEXT I il simbolo del cra- 


LET A$="T":FOR I=1 TO 5 \\ nio con un caratte- 
LET 1=2+2#! \ ZZZ re grafico. 


e cl riesci, aggiun- 
Hi gi dei rumori terri- 
HEXT I bili che accompa- 
A LET =19 î e gnino la caduta dei 
FOR I=1 TU S:LET RE=STRE CI3 teschi dalla 
X=1+2#1:GUSUB 560 Piramide 


IO 5 
SCEGLI QUALE FILA" 
A LET "W=@ :GUSUE 560 
LET I*=INEETF 
250: Azzera il punteggio. 


260: Prepara il numero di crani. 


270-280: Visualizza il messaggio in alto a sinistra dello 
schermo. 


290-300: Aspetta che venga premuto un tasto. 


310-320: Controlla che il tasto premuto sia un numero compreso 
tra l e 4, se non lo è, torna indietro e ne aspetta un altro. 


330: X e Y determinano la posizione del cranio. Questa linea li 
pone in cima alla piramide. 


340: F è una variabile ‘flag’ che registra se la mossa 
precedente è stata un rimbalzo laterale. 


Scommetto che non sei 
capace di calcolare come 
si fa a dare un numero 
maggiore di teschi per 


350-370: Visualizza il cranio e 
aspetta. 
AL €183 . . 
:>4 THER GOTO 296 380: Cancella il cranio. 
LET: RBA4B03LEL A hi 390: Sceglie da che parte effettua- 
4 LET re il rimbalzo se il valore di F 
GOSUE 4 permette un rimbalzo laterale. 


DT St, ":GUSUE 560 400: Sposta il cranio di una riga 
O IF F=4 AND Y13 THEM LET M=K+SGN (END (1)-.5; Verso il basso. 
40 LET W=r+1:LET F=1-F 410: Controlla se il cranio ha 


] 21% 1 GUTO 354 
LET li re toccato terra. 


43 SULET Yet a 420: Calcola il punteggio a 
4 LET M&=STR$ «Ist seconda della colonna in cui è 


Sf GUSUBEB S5A " N n 
GEO HEXT I . finito il cranio. 


ba tE i est GOSUE S4A 430-450: Visualizza il punteggio. 
490 CLS'PRINT:F 470: Aspetta. 
S6O PRINT "LA DIFFERENZA E° i ; . 
S IF D>1 THEH LET K=3090:GO0SUE 546:GO0T0 20 480-500: Somma la differenza tra 
FRINT "SEI LIBERO. PUOI ANDARTENE" il punteggio e il numero richiesto 
TOP al punteggio totale. 

4 FOR T=1 TO K STEP SFGUHEXT 1 î - ; 
RETLRH 510: Se la differenza è maggiore 
PRINT TABCK.);A% di 1, torna indietro per un altro 

"6 RETUFN gioco. 


520: Visualizza il messaggio di 
vittoria. 


540-550: Subroutine per far fare alf 
computer una pausa di lunghezza 
dipendente da K. 


560-570: Subroutine per spostare 
il cursore alla posizione X, Y 
dello schermo. 


Non credere di 
essere abbastastan- 
za intelligente da 
riuscire a cambia- 
re i limiti del nu- 
mero da raggiun- 
gere. 


Linee di conversione 


D 20,390 Sostituisci RND(1) con RND 

m 20,390 Sostituisci RND(1) con RND(0) 

@ 30,90,490 Sostituisci CLS con HOME 

A _30,90,490 Sostituisci CLS con PRINT CHR$(147) 

&) 290 LET I$ = INKEY$(0) 

@ 290 1$=‘':1F PEEK(—16384)> 127 THEN GET I$ 

A 290 GET I$ 

1560 PRINT AT Y,X:A$ 

@®560 VTAB(Y + 1):HTAB(X + 1):PRINT A$ 

a560 PRINT CHR$(19);:FOR LL = 1 TO Y:PRINT:NEXT 
PRINT TAB(X);A$ 

m560 PRINT@Y*32+X.A$; 


(7 PS 


L’abbraccio del Mostro 


Lottare coi mostri è uno sport per lunatici! Il che non vuol dire molto per te, 
che sei la mente cui è affidato il compito di tenere a bada questo mucchio 
di ossa e muscoli, che è uno dei più schifosi mostri dell'Universo. 

Nella tua qualità di mente, devi fare molti calcoli veloci e precisi. Devi 
per esempio calcolare lo sforzo muscolare necessario per sfuggire al 
mostro, e questo implica il dover moltiplicare le dimensioni del mostro per 
la distanza a cui esso si trova da te. Se i numeri ti sembrano troppo 
complicati, premi il Bottone del Panico (tasto P). Dovrai poi calcolare 
quanta andrenalina occorre al corpo per superare una crisi, dividendo il 
battito cardiaco richiesto per l’ossigeno disponibile. Stai attento tuttavia, in 
quanto un abuso del Bottone del panico sforza troppo il cuore e potrebbe 
causarti un crollo alla fine. Per poter fare un’altra partita, devi 
sopravvivere a 12 round nella lotta contro il mostro. 


Come funziona 


20: Azzera il numero di volte che è 
stato usato il tasto P. 


LOI MOSTRO 


30-60: Fissa i valori massimi della forza sl 
del mostro e della distanza. 


70: Determina il numero di round. 


RND € 114Y+5% 80: Dimensiona il mostro. 
(RND C13*E+kE3 


90: Determina la distanza del mostro. 


E PRINT "DIMENSIONI DEL MOSTRO: 
4 PRINT G 
FRIHT 
PRIHT "DISTANZA DAL MOSTEO 
FRIHT I 


"SFORZO MUSCOLARE 


G#I THEN GOTO 320 
@A240 
250 "HAI TENUTO TESTA AL MOSTRO" 
dh) IF NZ11 THEH GOTO 75 
PRINT “FIUU!!! — IL MOSTRO " 
PRINT "E” STANCO ED E” ANDATO A" Se continui a perde- 
PRINT “CERCARSI UN'ALTRA VITTIMA," re, ti converrà rallen- 
PRINT "SEI O PER MIRACOLO!" tare il programma 
STOP aumentando il valore 
CLS di Q alla linea 660. 
O PRINT "LE POSSENTI ERACCIA" 
A PRINT "DEL MOSTRO HANNO FATTO " 
PRINT “POLPETTE DI TE." 
G PRIMT 
PRINT "SEI SOPRAVVISSUTO ":H;" ROUND" 


CRHD (136941) 
CRND C1269+1) 


IM "STAI VEDENDO LE STELLE!" 
TH PREDA AL PARIMICO!" 
ITO CARDIACO: "4 
GENO DISPONIBILE: "Gb 
PRINT 


PRINT "gl DANTITA" DI ADFENALINAZ,". Diminuisci Q, se il gio- 


co ti sembra troppo 
facile. 


sta] Per rendere il gioco 

più difficile, prova a 
indovinare come si 
possa aumentare il 
numero di round. 


IF R&="P" THEH GOTO 
IFUVAL cREI5=O AND HÉ 


29M 


"4" THEH GO0T0 650 


I CROLLATO" 


Come funziona il programma seguito) 


100-120: Aumenta di 0,5 i limiti delle 
dimensioni e della distanza, ad ogni 
round. 


210-220: Aspetta una risposta e va alla 
subroutine per controllarla. 


230: Se la risposta è sbagliata, salta al 
messaggio di sconfitta. 


250: Se hai vinto, visualizza il 
messaggio appropriato. 


260: Torna per il round successivo. 


270-310: Messaggio di vittoria se si 
superano i 12 round. 


330-380: Messaggio di sconfitta. 


400-410: Decide la quantità di 
ossigeno e di adrenalina necessaria. 


420: Determina il valore dei battiti 
cardiaci. 


430-450: Conta quante volte sei 
ricorso al Bottone del Panico; avverte 
dopo la terza volta e termina il gioco 
dopo la quarta. 


460-510: Stampa i messaggi di Panito 
e aspetta la risposta. 


520: Pone Q al valore di inizio del 
conteggio, che viene effet- 
tuato dalle linee 650 e 660. 


530: Va alla subroutine di risposta. 


540: Se la risposta è sbagliata, torna al 
messaggio di sconfitta. 


550-560: Se la risposta è esatta, va al 
round successivo o al messaggio di 
vittoria. 


570-690: SUBROUTINE PER LA 
RISPOSTA. 


570: Azzera il conteggio. 


580: Riserva spazio in memoria per 
Z$. 


590: Controlla se è stato premuto un 
tasto. 


600: Controlla se il tasto premuto è 
RETURN (CHR$(13)), nel qual caso va 
alla linea 680. 


610: Controlla se il tasto premuto è P; 
se si, va alla routine ‘‘Panico’’. 


620: Se non è ‘stato premuto un tasto, 
aumenta il valore di Q. 


630: Se il tasto premuto non è né 
RETURN né P, lo visualizza. 


640: Z$ contiene i tasti premuti nel 
corso del round. 


650-660: Loop per il conteggio del 
'tempo. Se Q raggiunge il valore di 
1000, senza che sia stato premuto un 
tasto, va al messaggio di sconfitta. 


670: Torna indietro per la successiva 
pressione di un tasto. 


680: Converte i tasti numerici in Z$ in 
numeri, per metterli in Z. 


710: Messaggio di sconfitta per abuso 
del tasto P. 


Linee di conversione 
40,240,320,390,550,700 Sostituisci CLS con 
PRINT CHR$(147) 


40,240,320,390,550,700 Sostituisci CLS con HOME 


80,90,400,410 Sostituisci RND(1) con RND 
80,90,400,410 Sostituisci RND(1) con RND(0) 
520 LET Q=400 

580 LET Z$= "0" 

590 LET A$ = INKEYS$(1) 

590 GET A$ 

590 
595 
597 
600 


F A$ =‘ THEN GOTO 650 

PAUSE 40 

F A$CHR$(13) THEN PAUSE 20:GOTO 680 
IF A$ = “P'' THEN PAUSE 30: GOTO 390 
PRINT AS:PAUSE 15 

F Q= 1000 THEN GOTO 320 

F Q= 250 THEN GOTO 320 


A$ =" ":1F PEEK(—16384)>127 THEN GET A$ 


Lo Squalo 


Mmm... come sono squisiti gli esseri umani! Ma se tu hai un Cacciatore 
perennemente alle calcagna, diventa difficile riuscire ad avvicinarli 
abbastanza da poterli catturare. Tu sei J (Jaw) e ti puoi muovere usando i 
tasti A, Z, M ed N. Quante P (persone) riesci a mangiare, prima di essere 
catturato da C (Cacciatore)? C’è un trabocchetto, ovviamente: ogni volta che 
riesci a catturare e divorare un delizioso essere umano, ti emozioni tanto da 
dimenticarti a cosa corrispondono i tasti. 


Come funziona 


10: Riserva spazio in memoria per il 
reticolato; va alla subroutine per 
leggere i dati relativi ad esso. 


20: Azzera le variabili per la | 


C123:/DIM EEC4ICGUSUE Leb 
AILET T=@:LET GW DAFIONZA. 


30: Fissa ogni quanto si muoverà il 


5 Re LET k&r21="19" cacciatore. | 
2" LET K&c435="N" Pari A PO 
:LET pu=g 40-50: Stabilisce la direzione del 


movimento relativo ai vari tasti. 


“ ia CET fa 60: Pone Lo Squalo (Jaws) alla posi- 
sii rata smi PRE = T . s_:_» 
FAOLOU LET IF:=INKEYE zione iniziale. 
116 IF I: (12 THEN LEI MY=HWY-1 70: Va alla subroutine che visualizza 
120 (23. THEN LET MH il reticolo. 
130 #23 1THEN LET N . 
146 #04) IHEN LET N 80: Va alla subroutine che fissa le 
154 MGLET = 6USÌ posizioni del cacciatore e delle 
160 THEN GOTLU 206 persone. A 
175 -PX:LET Y=PY:LET H3=" 1 n 
188 (40 Ù 90: Aggiorna la posizione dello 
1594 (LET Y=MY LET Hf="1" squalo. 


100-140: Calcola la nuova posizione 
AND PY=TY THEN GOSUE dello squalo a seconda del tasto 
AHI Pret THEN I A premuto. 

RR e no Ha 150: Controlla che questa nuova 


LET Prstlà 


is ET WS1ZILET HSssThs «TI posizione non sia un muro. 
G+1 :GUTO SH 160: Se lo è, non sposta ]J. 
FO 2AG HE] F . 
170-180: Stampa uno spazio vuoto 
nella posizione precedente. 
Linee di conversione 190-200: Stampa una J per indicare 
D 10 DIM M$(12,16):DIM K$(4)GOSUB 660 la nuova posizione dello squalo. 
&100 LET I$ = INKEYS$(0) 210: Sposta lo squalo nella nuova 
@ 100 1$=‘'":|F PEEK(—16384)> 127 THEN GET 1$ posizione. 
A 100 GET 1$ 220: Controlla se J ha attaccato 
qualche P e salta, se del caso, alla 
Ti sfido a far muo- subroutine. 
vere più spesso il ; 
cacciatore. 230: Controlla se J ha attaccato il 
Cacciatore, e se sono nella stessa 
posizione fa finire il gioco. 
SZ 240: Muove il cacciatore. 
ki ° 
ali << 250-260: Visualizza il punteggio 


sinora ottenuto. 


270: Aumenta il numero di mosse e 
torna indietro alla mossa successiva. 


280: Fa una pausa in modo ceh tu 
possa vedere se sei stato catturato. 


si; 


10 240,390,400,550,560 Sostituisci RND(1) con RND ] 

Mi 240,390,400,550,560 Sostituisci RND(1) con RND(0) 

@ 290,600 Sostituisci CLS con HOME 

A 290,600 Sostituisci CLS con PRINT CHRS$(147) 

1550 LET F=0:IF MS$(YX)< >" THEN LET F=1 W 

M640 PRINT AT Y,X:A$ 

@640 VTAB(Y):HTAB(X):PRINT A$ 

A 640 PRINT CHRS$(19);:FOT LL = 1 TO Y:PRINT:NEXT:PRINT 
TAB(X):A$ 

BM 640 PRINT@ Y*32+X,A$; 


@A290 CLS:FFINT "SEI STATO PRESO!" 290-330: Stampa un messaggio e il 
300 LET S=INT C1O0004T/G)) PRINT "PUNTEGGIO ";S punteggio, se Jaws è stato preso. 


310 PRINT:PRINT "UN'ALTRA PARTITA? (S/H)" Chiede se il giocatore vuole fare 
INPUT A$:IF H$="S" THEN GOTO 26 un’altra partita. 
e 


Il punteggio di- 
pende dal numero 
di persone e dal 
numero di mosse. 


4 LET T=T+1:LET U=U-B, 03 
i GOSUB S90:GOSUE 496 


340-360: Subroutine che aumenta il 
GUSUE 640° i punteggio e le possibilità di mosse del 
LET KI i ; d un’altra subroutine 
90 LET K2=INT <Rh CACCENONE, Va SE DN SITA SOA 
A LET T$= per cambiare le direzioni cui si rife- 
A LET K&CK1I=K$ck23:LET K&CK23=TE riscono i tasti per lo spostamento; 
430 RETUFN posiziona la persona successiva. 
per: SOR a, 370-380: Subroutine che toglie il cac- 
46R n, ciatore dalla posizione precedente per 
4798 E="C":GOSUE &46 visualizzarlo in quella successiva. 


489 RETURN . I 390-430: Subroutine che cambia i tasti 


499 GOSUE Fi ‘ hi 
SOA LET TX=X:LET TY=Y dei movimenti. 


510 LET A£="P":GOSUB 640 440-480: Subroutine che visualizza il 
320 RETURN cacciatore, utilizzando un’altra su- 
0530 LET F=@!IF MID (M$(4#3,%,12<3" " THEN LET F=1 broutine per scegliere a caso la posi- 

So e C(RND Cid zione in cui metterlo. La linea 450 

S60 LET Y=INT CRND (11%9142 controlla che nella posizione scelta 

579 GOSUB S20 non ci sia già una persona. 

589 IF F=1 THEN GOTO 550 490-520: Subroutine per la visualizza- 

è eta in vel zione di una persona, utilizzante 
ira un’altra subroutine per la scelta ca- 


610 FOR Y=1 TO 12:LET A&=M$C7) 


629 GOSUB E4R:NEXT + suale della posizione dove porla. 


ga RETURN o. 530-540: Subroutine che controlla se la 
Mea640 PRINT TABCX,Y);A$ posizione X, Y coincide con un muro. 


659 RETURN 2 
669 FOR I=1 TO 12:READ M&cI3:NEXT I Se si, pone F uguale ad 1. 


670 RETURN 550-590: Subroutine che fissa una po- 


689 DATA 3 RONSO COCO AARA. sizione a caso e controlla che non sia 
699 DATA un muro. 


709 DATA 3 bd 000 na c06 ; i i 
719 DATA "9989 600-630: Subroutine per la visualizza- 
720* DATA "0 02000009 zione del reticolo. 


7: "A i , . 
240 DATA e ui (ila) Soa 640-650: Subroutine per visualizzare 


759 DATA "9 00069 8280 "E in posizione X, Y. 
769 DATA "A a ga a aaa a 7 660-790: Subroutine per la lettura dei 
770 DATA "@ a dati relativi al reticolo. 


789 DATA "APANCHNERANNNa08" 
799 DATA “MANGIATI: 
nt 


Queste sono le linee per 
creare il reticolo. Potresti 
modificarle, disegnando un 
nuovo reticolo su un foglio 
a quadretti e copiandolo 
nel programma. Devi usa- 
re lettere O per i muri e 
spazi per i passaggi. 


Streghe volanti 


Sei l’assistente-capo di Superstrega, il tuo compito è quello di volare in giro per 

la terra, raccogliendo ingredienti freschi per le sue pozioni puzzolenti. Saprai 
esattamente che cosa raccogliere in quanto essa trasmette direttamente sullo 

schermo del tuo computer le sue ributtanti ricette. Vedrai apparire sotto di te 

mentre voli ingredienti come D (Dita di Tritone) e P (Pipistrelli). Devi premere un 

tasto per piombare su uno di essi e raccoglierlo (per farlo, dovrai atterrare 

proprio sopra). Fai attenzione, che qualcuno degli oggetti volanti potrebbe essere 

il Distruggi-Manici-di-Scopa travestito: se atterri su di esso, perderai il tuo ) 
manico di scopa. (Si inizia il gioco con tre manici di ricambio). Devi raccogliere 

tutto ciò che ti si richiede, prima di arrivare al Calderone, altrimenti Superstrega 


non sarà soddisfatta ... 

Come funziona À 

20: Fissa i valori delle variabili. 

Ù NERA Ù (Prova a capire a che cosa si 
:LET F n FM=S6 
A:LET H=HH 
1 
LET FF=M@:LET HH=H 


riferiscono). 

30: H è l’altezza da terra a cui 
‘ao d:LET GCIss=h:HEST I 
TO 4:LET A$=P$( cI+" "LET = 


stai volando. NH è la tua nuova 
altezza dopo una picchiata. 

50: EF e FF sono variabili ‘flag’ 
che vengono attivate quando il 
gioco è finito. HH è una variabile 
per ottenere altezze intermedie 
mentre sali o scendi. 

60: G( tiene conto di quanti di cia- 
scun tipo di oggetti hai raccolto. 
70-80: Visualizza la ricetta. 
90-120: Sposta la linea di terra e 
gli oggetti sullo schermo finché 
non viene premuto un tasto. 
130-160: Continua a muovere il 
suolo e gli oggetti e muove la 
strega verso il basso fino al 
livello del suono. 

170: Se P=17, la strega è atter- 
rata su un oggetto. 

180: Controlla la variabile ‘flag’ 
della fine di gioco. 

200-220: Muove il suolo e gli 
oggetti finché la strega non 
raggiunge la nuova altezza. 
230-270: Messaggi di fine 
partita. 


IF P=17 
IF FF=i 
A GOSUB 530 


THEM. G 
THEH | 


E troppo diffi- 
cile per te? 
Fallo diventa- 

re più facile 
aumentando il va- 
lore di FM alla 
linea 20. Cosi 
metti più oggetti 
tra la partenza e 
il calderone. 


LET HH=H+t1:GOSUE SIG: G0 490 


ala 9 
16 LET H=HH IF H= NA_ THEN GOTO 30 


LET Ré="TROPPO TARDI!" 
LET #=1:LET Y=15:G0SUB 610 


STOP j A 
E . 280-310: Subroutine che mostra 
LET ARé="bW" LET #=P:/GG0SUB 61 sa . 
EOR T=1 To 1900 ne iN TT Shi una W se l'oggetto è il Distrug- 
LET Hd=H- gi-Manici-di-Scopa travestito. 
RETUFM Aumenta NW e attiva FF se tut- 


250: RETURN ti i manici di scopa sono stati 
utilizzati. 

320: Subroutine che controlla se 
sei atterrato sul Distruggi-Ma- 
nici-di-Scopa. 

330-350: Aumenta il numero di 
oggetti R raccolti e stampa 
sullo schermo il nuovo totale. 
370-420: Controlla se tutti gli in- 
gredienti per questa ricetta 
sono stati raccolti. 


IF x toa GOSUE 


Prova a sostituire 
le lettere con sim- 
boli grafici. 


Perché non cambiare 


gli ingredienti? 
jan 
] NI ATEI Vist ; 
lan 4: SENTII LA CAMS pr 5 


“14 IF F=4 THEN LET EF=1 
RETURN 


46 LET A$=6G$(GDN3:LET =1: 
450 LET A$=" ":LET %=P:LET 
460 LET P=P+1:IF P=20 THEN GOSU 
A LET X=P:LET A$=C#:G0SUE 610 
450 RETURN 


499 LET A$="-y-=" LET X=16:LET +=14-HH 

Son GOSUE 610:RETUEH 

SIA LET A8=" UILET M=16:LET =14-H 
204 GOSUB 616:RETURN 

22309 LET HH=INT €RND C13#5+30 

540 RETUEN 

1559 LET R=INT CRND €13%43+1 


& THEH LET W=1 
(P£CRI.19:LET PSI 


A LET W=@:IF RKHD C135A, 


a70 LET C&=LEFT$ 
G LET M=M+1 

IF M=FM THEH LET C&="CALDERDHE" 

RETURH 

PRINT TRECA,#3:;A£: RETURN 

CLS :PRINT:PRINT 

PRINT "LA POZIONE DEVE AVERE" PRINT 

4 FOR I=1 TO 4 

LET NH=INT cRNMD C13%23+2:/LET H£I3=hH 

PRINT:PRINT Mi" "iP£10) 

HEXT I:PRINT:PRINI 

FRINT "PREMI RETURN FER CONTIHUARE" 

INPUT #$:CLS:RETURH 


HIM Dedo 


FO DIM Pride 


7 DIM Hrdo 
AODIM G&Esi 


A FNPO_I=1 TO 4 FENIDDO Pilo 
DATA "DITA NI TETTOHE"." 
OSTA "FIFISTPFILI" 

LET H$=" === == 
EOF Is] TO SCLET barn ast THk «HE 
MEST IILET GI=1 

A FPETHIEH 


Linee di conversione 
8 120 IF INKEY$ = "THEN GOTO 90 
A 120 GETIS:IF I$= ‘‘'' THEN GOTO 90 
@ 120 I$="":|F PEEK(—16384)> 127 
THEN GET 1$ 
@ 125 IF I$=""'THEN GOTO 90 
* 125 *FX15,1 
530,550,560,650 Sostituisci RND(1) 
con RND 
m 530,550,560,650 Sostituisci RND(1) 
con RND(0) 
570 LET C$=P$(R,1):LET P=1 
610 PRINT AT Y X:A$:RETURN 


430-480: Visualizza la porzione 
successiva di terra e muove l’og- 
getto alla posizione P. Se l’oggetto 
ha superato la strega (cioè P=20), 
sceglie un altro oggetto. 

490-500: Visualizza la strega. 


510-520: Cancella la strega con 
una serie di spazi. 

530-540: Determina la nuova altez- 
za per la strega. 

550: Sceglie un oggetto. 

560: Possibilità casuale che l’og- 
getto possa essere il Distruggi-Ma- 
nici-di-Scopa travestito. 

570: Mette la prima lettera dell’og- 
getto in C$ e pone uguale a l la 
posizione P. 

580: Aumenta il valore del 
contatore d’oggetti M. 

590: Se M equivale al numero mas- 
simo permesso di oggetti, C$ viene 
cambiata in ‘CALDERONE’. 

610: Subroutine generica per muo- 
vere il cursore in posizione pronta 
per la stampa. 

620-690: Sceglie la ricetta e la 
visualizza. | 
700-770: Prepara i dati per iniziare | 
il programma. P$ contiene i nomi | 
degli oggetti; H$ contiene i simboli 
per il suolo. La linea 750 sposta di 
uno spazio alla volta i simboli. 


Che cosa ti farà Superstrega se 
non ce la fai? Prova ad aggiunge- 
re al gioco commenti e penalità. 


4610 PRINT CHR$(19):FOR LL= 1 TO Y N 


PRINT:NEXT:PRINT TAB(X);/A$:RETURN 

@®610 VTAB(Y)HTAB(X):PRINT A$:RETURN 

8610 PRINT@ Y*32+X,A$;:RETURN 

A620,690 Sostituisci CLS con PRINT 

CHRS$(147) 

@® 620,690 Sostituisci CLS con HOME 
700 DIM P$(4,15):DIM N(4):DIM G(4) 
710 DIM G$(5,24) 

750 FORI=1 TO 5:LET G$(6—1)= H$ 

(ITO1+20) 


Questa è una specie di mi- 
ni ‘adventure’. Se non hai 
mai giocato ad un adventu- 
e prima d’ora, sappi che 
o scopo del gioco, è quel 


fano. Sarà meglio Mionos® 
‘e yedi se riesci a 
uccedendo. 
lare al tuo computer 


Linee 30-360: SEZIONE PRINCIPALE 
DEL GIOCO. 


GUSUE 1570 10: Va alla subroutine e mette in memoria i dati. 
OFE:FUR 1=1 TO R: (KERD DS :MEXT I 


S:PRINI ‘FO 20-50: Prende la descrizione di una 
stanza e la visualizza. 


SG: PRINT "TI 


Fi9:=9 IHEH PRINT "SEI AFFRONTATO DA UN GROSSO GATTO" 


FOR I=1 10 G ‘ 
1F LCIt=F ANIO Fi11=6 THEN PRINT "QUI CET: "08013 70-90: Controlla se c’è 


AOHEST I qualcosa. 


HH 
14 
2A 


FRIHT:PRINT "PULUI HYDARE ; 
FO I=1 TU LEN ‘R&(FRa: 100-130: Trova le direzioni in cui ti 


HA) Ria VIS ALGERSZ SERENE puoi muovere e le visualizza. 


PRINT:PRINT "--------2-2------ 
PRINT ME:LET ME="CUME?" 150: Messaggio di errore. 


LF FfAlba=1 THEN PRINT "AUTONISTRUZIONE — CONTO ALLA ROVESC 


170-220: Prende le tue istruzioni e 
le divide in due parole. 


PRINT SCUSH VUOI FHRE CEH "INPUT 0 
Ì "ILET ME="":LET VYE=M:LET CE=W:LET LI=SLEH CH£) 
TU LI 
MILE CEE. I, 13=" " HIND *&="" THEN LET V&=LEFTE cW$, 1-13 
MILE CHE, [+1 1302" " HM Y$>"" THEN LET b&=RIGHT$ c08.LI-I%:LET 


p£39 IF W$="" THEN LET V$=0$ P 

0249 FOR I=1 TO 4 230-260: Controlla che la prima parola 
259 IF Y$=H£CI) THEN LET VB=I sia un verbo. 

2609 NEXT I 


270 GOSUB 440 270: Va alla subroutine per il controllo della seconda parola. 


vB=9 THEN LET VB=V+1 

U$?"" AND 0B=0 THEN LET M$="SAREBBE STUPIDO" 

W$="" THEN LET M$="MI SERVONO DUE PAROLE" 

vB? AND OB>B THEN LET M$="NON PUOI "+0$ 280-330: Prepara — 

B?4 AND 0B=9 THEN LET M$="NON HA SENSO" messaggi se necessario. 
IF VBCY AND OB>O AND OE<=G THEN LET M$="NON HAI "+4$ 


IF VE>14 THEN GOTO 289 cn È 
ON VEGOSUE 489,559,550, 559, 550,550, 550,550,.7659,790,790,860,920,979 Una data subrou 
GOTO 2399 tine a seconda 

1 ON VB-14G0SUE 1980, 1190, 1150, 1250, 1320, 1240, 1370, del verbo che 
1490, 1469, 1519, 1560 hai introdotto. 


399 IF F(14)=9 AND L>9 THEN GOTO 26 
4360 IF L<X1 THEN LET M&="IL TEMPO E” SCADUTO, L'INGRANDITORE SI EC AUTODISTRUTTO! 
419 PRINT M$:PRINT "FINE DELLA PARTITA" 
426 IF L>69 THEN GOSUB 1519 390-430: Fine del gioco. 
430 STOP Scrivi INVENTARIO’ se 
vuoi sapere cos’hai con 


2440 FOR I=1 TU U 

450 IF W&$=0£(I) THEN LET 0E=I 440-470: Subroutine che controlla se la 
460 NEXT I seconda parola è presente nell’elenco 
470 RETUFN / degli oggetti del computer. 


PRINT "HAI CON TE: " 

FOR I=1 10 G 

IF Lé1}=25 THEN PRINT 0&C013;"."; ; “cai 

NEXT I Sa i 1% : 480-540: Subroutine che ti dice che 
LET M&="":PEINT . sà: I cos’hai con te. 

GOSUB 1554 

RETURM 


550-570: Subroutine che esegue le tue 
istruzioni inmerito alla direzione nella 


so quale vuoi proseguire. 


Sa 0 THEN LET I=VE-2 
Î THEN LET I=0E-=94 
* AND D=6 THEN LET I=4 
AND I=t THEN LEI I=4 
AND D=5 THEN LET I=3 
264 AND I=4 THEN LET M&="IL GATTO NON TI LASCIA": FETUFN 
$ 25 ANI D=3 THEN LET M&=M1£:FETURN 
IF R=7 HND FC30=0 THEN LET M&="UN TOPO FURIOSO TI SEARRA IL PASSO": RETURN 
LET Fi 3330 !LET RL=LEN ‘R$ECF03 
A FOR I=1 TO FL 
LET U$=MID$ €R$cR3.1,10 
IF €U ali AND Fe133=M4) THEN LET 


K=R- 
="S" AND D=2 HND F£131=0 THEN LET R=F+ 


6 n 
E:LET F£133=1 


Se stai usando un 
VIC 20 hai bisogno 
di memoria extra 
per questo gioco. 


IF €U$="0" HND D=3 AND FE 
A IF “U$="E" AND D=4 AND FC13:=0) ; 2= “LE i 
A MEST I 


Hai già provato a giocare al- 
cune volte e hai deciso che ti 
sarà impossibile vincere? 
LET ME="Uk" e Potresti concederti più tempo, 
IF F(131=9 THEN LET M&="NON PUOI ANDARE FEF LH?' ponendo un valore maggiore 


IF IK THEN LET ME="ANDARE DUVET" per L alla linea 1910. 
RETLIEH 


LET M£="TI STAI ALLENAHUO PER LE OLIMPIADI?" 5 
IF Foldi=1 AND (P=2S HUF R=3) THEN LET M$&="E” TEOPPO DISTANTE FER SALT 
RETURN 
QE=S THEM LET M&=%#+" IL "+ll$+M2$:FETURM 
DESS THEN LET M&="HCN PUSSU RAGGIUNGERE "+48 RETURN 
L(0EIC>FE THEN LET M&="GUI NON C 
F/OBI<>M THEN LET ME="CHE "+l4F+"5 
 LCQOBI="5 THEH LET M$="CE L'HAI GIA?" 
DE>S AND LeOb5=h AMD FCOBS5=6 THEN LET Li0B3=25:LET M$=M3$+4% 
RETUFM 
IF LUB©:25 THEH RETURN 
LET M&="NO DAVVERO!" IF 0EZ>1 THEN RETURN 
PRINT "DOVE DEVO METTERE LA CHIAVE" 
IMPUT M$:IF M$>"" THEN GOSUE 440 
IF C0B=S OF M£="SUL "+0$83% THEH LET M$=M148:LET F(153=1:LET Li15=R 
RETUEM 
IF Fl11)=0 AHD Le7a=25 THEN LEI LET F(33=G 33=M:LET ME=M5$ 
IF F{1193=1 AND Li7>=25 AND R=20 ai LET M&=M$+M6% 
IF R=z1 AND 0E=24 THEN LET Fc4)=M 
IF DE=16 THEH GOSUE 970 
FETURH 
LET ME="HIENTE DI INTERESSHHTE" 
6 ANI F=12 THEN LET Fo@)=0:LET M&E="E7 UN MICRO — 4CR" 
ANI F= THEN LET M$="C "E° QUALCOSA DENTRO" 
AHI R G i 
AND K=12 THEM LET M£= 17 7% 
THEH LET ME="CONTIENE UNA GRANDE MOSCA 
R=26 AND F(95=A THEN LET M&="GRAFFIA E MORDE!" 


ARE" 


THEN LET Ms="CE INCISO SOPRA IL NUMERO < 
:6 AND LEG THEN LET M$="C"E” UN GRANDE BOTTONE RO 
FETL IE 
LET M$=MG$:/F UB=3 HNI L(0UE:=25 THEH LET M$=MF£ 
RETURN 


THEN LET M$="MON POSSO LEGARE "+4$ RETURN 
23 THEN RETURH 
‘PRINT "LEGARE IL FILO A COSA" 


IMPLT ME 
IF W$>"" THEN GUSUE 440 
LET HON POSSO LEGARLO A "+4$ 
O11668 IF 0E=13 AND KR=9 THEN LET F£53=1:LET L(5*=9:LET M$=M3$ 
11f6 FETURNH 


7160-1500: Queste sono subroutine 
per i verbi usati nel programma. 
Cerca le linee con RETURN per ve- 
dere dove finisce una e inizia 
l’altra. 


Puoi tralasciare le parole 
LET se vuoi, a meno che tu 
non stia usando uno 


=5 AMD Fc53=9 THEN LET M&="NON E” LEGATO A NULLA!" 
AND R=9 AND Fe53=1 THEN LET h=8 LET FC1O :LET M$="0K" 
: AND FC53=1 THEN LET R=9:LET FC103=1:LET ME="OK" 
THEN LET M$="E TROPPO LISCIO FER SCALABRLO" 
THEN LET 0E=SO !GO0SLE S50 


014650 
0147A 
1450 
1496 


=MEE: 


1500 


Questo programma non è 
spiegato cosi estesamente 
come gli altri, in modo da 
non darti troppi indizi sul 
gioco. Puoi cercare di 
scoprire cosa facciano le 
varie linee di programma 
dopo aver giocato alcune 


IF CE=M AHI R=2fî THEN LET 0E=29:GOSUE 559 partite. 


IFO 


6 OR. L(6:<>25 THEN RETURN 


LET WH$=" "PRINT “PUNTARLO A COSA" 
IMPUT 14$ 


"" THEN GOSUP 440 
THEN LET Fc6éi=1 
"MOLTO BENE" 


RETUFN 

IF 0B=3 AMD L0E3=25 THEN LET L£0B)=O:LET M$="MUNCH CHOMP" 

EETURN ‘ 

IF (0E=19 0F O0B=17% ANI R=24 ANI L13725 THEN LET M$=M9#:LET' L=L-12:LET Fe1 


IF Le 


AND L£12=25 THEN LET FC12)=1:LET M$=MH$ 
=? AND L0B3=25 THEN LET FC(33=1:LET LCOBI=M:LET B=B+1:LET M&=M 
OBi=25 THEH LET LC0BI=R:LET M$="FATTO" 


THEM LET M&="M0N CE” NULLA SU CUI SCRIVERE!" :RETURN 
M$="QUESTO TERMINAL NON E° ATTIVATO":RETURN 
FA ECO: "+W1$ 
FC17I=1 
THEN LET M&="IDENTIFICAZIONE TERMINAL" 


= THEN LET LC83=14:LET M$=ME$+MC£: RETURN 
4 AND CE=11 AND LE 14 THEH LET Le 2:LET M$=MB$+MDF 
È THEN LET LcI 2) 
1 AND Feéi=l AMD Le6:=25 AND E=18 AHD F£17)=1 THEN LET B=B+10:LET M$ 


LET Fc14)=1 
RETURN 


ce 
be] 


S=b:FOR I=1 TO G 


IF 


DIM LeG}:DIM Felt?) 


DATA 


DFITA " 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
IATA 
DATA 
DATA 
DATA 


4A DATA 


gl 
RETURN 


1510-1560: Subroutine per il 
5 THEH LET +1 punteggio. 


+E:PRINT "PUNTEGGIO =" 
® THEN PRINT "FREMI FETURN PER CONTINUARE": INPUT G$ 


‘LET M=31:LET G=g ” 1570-1590: Visualizza le varia- 
> DIM 0843: DIM HE) bili e dimensiona gli array. 


1600-1870: Linee 
contenenti i dati. 
"NELLH THNH NEL TOPO — FR MOLTO BUIO QUI" 
SO UNA TAMA DI TOPO IM UN ANGOLO’ ILL ANGOLO DI UN ALTO TAVOLO" 
ETRO DI UN'ENTRATA". "IN UNO SGA HO", "NELLA CUCINA” 
"PIU" GIU” "YICINO A UN BINARIO MORTO" 
"ALLA ERSE DI UN ALTO ALEERO DI PLASTICA SULL'ANGOLO DI UN ALTO TAVOLO 
"FUORI DELLA FOURTA SPALANCATA DI UNA CASA DALLE STRANE DIMENSIONI" 
"IN UNA STANZA GIALLA", "VICINO A UN TELEVISORE E UN REGISTRATORE" 
"ALLA FINE DI UNA GALLERIA BUIA" 
"SICIMO PUN GROSSO INTERFUTTORE COHMNESSO AI BINARI" 
"LUNGO IL FIMARIO TORTUOSO" 
"ALLA FIHE DELLA LIMER: IL EIMARIO SCOMPARE IN UN BUCO NEL MURO" 
"AI PIEDI DI UN MURI FATTO DI GIGANTESCHI SCHEEMI TELEVISIVI" 
"IN PIEDI SULL INGRAMNDITORE" 
"SULLO SCAFFALE DI APPARATI DI DISTUREO: CE UNO SGABELLO VICINO" 
SU UN CORTO SGABELLO" 


DATI "SUL FONDO DI UNA SCI 4 ROVESCIATA FIENA DI COMPONENTI ELETTRONICI" 
: 1 LI BHUCS :MERGE UH EIMARIO FE VIARIO" 


DI COMPUTER CON UH ELOCCO DI SICURE: > 


ATH i I It FE" 
IATH "ESAM ', "LEG FAM E", "PUNTARE" 
i DATE ' = ' 

DATH 

DATA "i 

DATA * 


MTA", "FORMAGGIO", "CARTA" 


DATA IL, "TELECOMANDO" 
IATA ) - 
DATA 
DATA 
DATA 
DATH 
DATA" 
1880-1900: Lettura dati 
OR I=1 TO G 
DPR I=S1 TO 


!":LET MG 
A RONZANDO":LET M 

UNA FOTO SOPRA" LET M9$="% TAMPER #1" 
E IL GATTO SI METTE A CORRERGLI DIETRO!" 

O":LET MF$="CODICE TERMINAL="+0$C18) 

TA E SI FERMA QUI" :LET MD$= PARE NELLA. GALLERIA" 

MES="IL RAGGIO INGRANDITORE FUNZIONANDO TI RIPORTA ALLA MISURA NORMALE" 
RETURN 


1910-2000: Prepara i messaggi. 


NOTA IMPORTANTE 
per gli utenti di compu- 
ter Commodore. Se stai 


Linee di conversione usando un C64 oun VIC 20, 
devi tralasciare le parole 
A 30 Sostituisci CLS con PRINT CHR$(147) LET alle linee 400, 1340, 
@ 30 Sostituisci CLS con HOME 1370 e 1490. Se hai un C64, 
devi tralasciare tutti gli 
... PER UTENTI DELLO SPECTRUM CD] spazi alle linee 1490, 1700 


e 1850. 


120 PRINT R$(R,1);'‘,"; 
190 FORI=1 TOLI—-1 
200 IF Q$(I) =‘ ’ AND V$= “THEN LET V$=Q$(TO I—1) 

210 IF QS$(1+1)<>" "AND V$<> THEN LET W$= Q$(1+1 TO):LET 1=LI—1 

235 IF LEN(V$)<7 THEN LET V$=V$+“ ":GOTO 235 

360 GOSUB 480*(VB= 1)+550*(VB>1 AND VB<9)+ 760*(VB=9)+790*(VB=10 OR VB=11)+860* 
(VB=12)+920*(VB=13)+970*(VB= 14) 

380 GOSUB 1080*(VB = 15)+1100*(VB=16)+1180*(VB=17)+1250*(VB=18)+1320*(VB=19) 
+ 1340*(VB = 20)+1370*(VB=21)+ 1400*(VB= 22)+ 1460*(VB = 23)+ 1510*(VB = 24)+ 1560* 
(VB = 25) 

440 IF LEN(W$)< 15 THEN LET W$=W$+ ‘“ ’’:GOTO 440 

445 FORI=1TOW 

660 LET U$ = R$(R,1) 

900 IF (OB=8 OR W$= “SUL "+ 0$(8) + ‘“ "THEN LET M$ = “MOLTO BENE! ":LET F(15)= 1: 
LET L(1)= 

1580 DIM R$(24,4):DIM O$(W,14):DIM H$(V,7) 

1910 LETR=11:LET B=8:LET L= 100:LET M$ = “TI SVEGLI..." 

Linee 620,790,840,920,930,1010,1080,1160,1340,1350,1370,1460,1470,1490: 

Sostituisci le stringhe dalla M1$ alla MH$ con il testo nelle linee dalla 1910 alla 1990 

Per esempio, 620 IF R=2 AND L(1)= 25 AND D=3 THEN LET M$ = “NON PUOI RAGGIUNGERE LA 

CHIAVE ”:RETURN 

Tralascia le linee dalla 1910 alla 1990. 


Risposte ai quesiti 


Ecco le soluzioni di alcuni dei quesiti 
proposti nel libro. 


Teschi della Piramide 


Per aggiungere testi, sostituisci 5 alla 
linea 260 con un numero pil alto. 


I limiti del numero da raggiungere 
vengono fissati alla linea 20. In questo 
programma, il numero verrà scelto a caso 
tra 10 e 39. Se sostituisci 30 con 40, avrai 
un numero compreso tra 10 e 49. Se 
sostituisci anche 10 con 20, otterrai un 
numero compreso tra 20 e 49. 


L’Abbraccio del Mostro 


Per aumentare il numero di round, 
sostituisci il numero 11 con uno maggiore 
alle linee 260 e 550 (che deve essere lo 
stesso in entrambe le linee). Se aumenti il 
numero di round, ti occorreranno più 
possibilità di ricorrere al tasto P: dovrai 
quindi cambiare il 4 alla linea 440 con un 
numero più alto. 


Lo Squalo (Jaws) 

Per far muovere pit spesso il cacciatore, 
diminuisci il valore di U alla linea 30, 
ponendolo per esempio a 0.8. 


Streghe Volanti 

Se non porti a termine il tuo compito, il 
programma andrà alle linee 240 o 250 per 
un messaggio. Modificale come vuoi. 
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Speedy Computer 


Il calcolatore è anche (o 
soprattutto?) una macchina 

divertente. Si può giocare con 

lui, gli si possono fare delle 

domande, lo si può usare per 

scrivere una poesia o per 

suonare. 

Questa colorata serie di libri vi 

propone alcune delle cose più 

eccitanti che si possono fare 

con un calcolatore e vi spiega Ò Ù 

come farle. altri volumi 

Scritti in linguaggio chiaro e . 

comprensibile a chiunque, di questa collana 
arricchiti da una moltitudine di 

illustrazioni, questi libri 

rappresentano una spiritosa 

introduzione al mondo dei 

computer per chi comincia da 

zero. 


ESPANSIONI DEL PERSONAL 
COMPUTER 
Espansioni, accessori, 
interfacciamento... tutti i “cosa ” e 
i “come ” per far diventare il 
vostro piccolo computer una vera 
“centrale operativa”. 


GIOCHI i IL COMPUTER CON FANTASIA 


di spionaggio Progettate anche voi un “fantasy” 
dopo aver appreso giocando tutti 


brivido i segreti del “sotterraneo del fato”. 
. 
e mistero IL MISTERO DELLA 


MONTAGNA D’ARGENTO 


L'affascinante mistero della 


na mistero, terrore sul montagna d'argento vi sarà 
vosro video: più di venti giochi che svelato in un'avventura 
vi faranno star svegli la notte. mozzafiato. 
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